一直没解决的问题！难！！！

[hbdzgl]

如何用VB6.0的函数或语句找出系统中串行口的数目？

[Chice_wxg]

Dim i As Integer, count As Long
On Error Resume Next

For i = 0 To 9
Open "com" + Format(i) For Binary As #1
If Err.Number = 0 Then count = count + 1 Else Err.Clear
Close #1
Next
Debug.Print count

[liuzhanwen]

应该可以了吧？

[hbdzgl]

首先谢谢！

[jyu1221]

使用Open "com" + Format(i) For Binary As #1
这个方法好象有点问题，
如果COM1已经被其它设备占用了，则肯定会出错的。

[zfl2k]

再判断错误信息为端口已打开的也加一就行了

[pctommy]

而且太费时间，应该用API

[hbdzgl]

用API怎么用呢？请指教。

[hbdzgl]

用API怎么用呢？请指教。
Chice_wxg(VS.NET = 光驱烤肉，我也入网了) 提供的办法经过试用还真可以，但是为什么会出现COM0呢？

[Chice_wxg]

因为系统是从0开始编号的

也就是说，平时计算机上有COM0 COM1 COM2 COM3 四个COM口。

[Chice_wxg]

因为系统是从0开始编号的

也就是说，平时计算机上有COM0 COM1 COM2 COM3 四个COM口。