求救：请问各位高手，怎样去判断端口是否存在，比如说我电脑上COM1端口是存在的，但是有些电脑确是COM2,如何加个判断如果端口不存在就不执行端口打开，如果存在则打开呢？
我代码是这样写的：
Select Case Com.ListIndex '选择com口
Case 0
MSComm1.CommPort = 1
Case 1
MSComm1.CommPort = 2
Case 2
MSComm1.CommPort = 3
End Select

MSComm1.Settings = "1200,N,8,1" '设置数据的传输率，桢格式，无奇偶校验
MSComm1.OutBufferSize = 1024 '设置MSComm1发送缓冲区为80字节
MSComm1.InputMode = comInputModeBinary
If Not MSComm1.PortOpen Then '打开通讯串口
MSComm1.PortOpen = True
End If

这样写出来如果选择的端口其他机器上没有，它会出现错误信息：无效的端口！然后自动关闭整个程序，请问如何加个提示判断呢？谢谢！

[此贴子已经被作者于2006-10-9 11:16:23编辑过]