Retrieving the numbers of comports

[Chris101]

Hi All.

Is there a way to retrieve the numbers of Comports there is on a PC in a windows environment ??.

Best regards from.

Chris101

[alex_read]

Yup! You can call on the EnumPorts API call. This will list all of the ports such as LPT printer ports, com ports etc on the local pc.

There's a sample over at www.allapi.net too!

[Chris101]

Isn't there another way ?, this finds ALL the ports on the PC (not only the com ports) and more, by more i mean that it says that my PC has com1 - 4 but it has only com 1 - 2 in the real world.

Regards from.

Chris101

[darrenl]

Ahh... the old QueryDosDevice Solution...

Copy this code into a blank Form

Private Declare Function QueryDosDevice Lib "kernel32" Alias "QueryDosDeviceA" (ByVal lpDeviceName As String, ByVal lpTargetPath As String, ByVal ucchMax As Long) As Long


Sub Form_Load()

Dim lngCount   As Long
Dim s          As String
Dim Ret        As Long
Dim PortCount  As Long

      For lngCount = 1 To 100
         s = String$(255, Chr$(0))
         Ret = QueryDosDevice("COM" & CStr(lngCount), s, Len(s))
         s = Mid$(s, 1, InStr(s, Chr$(0)) - 1)
         
         If s <> "" Then
            Debug.Print "Found >COM" & cstr(lngCount)
            PortCount = PortCount + 1
         End If
      Next      
      MsgBox("Found " & cstr(PortCount) & " Com Port(s)")

End Sub

You will notice that the Debug.Print tells you exactly what Ports are around...

Good Luck..

[Chris101]

Hi Dazzer.

This is exactly what I was looking for, do you know if this also will work on XP ??.

Best regards from.

Chris101

[darrenl]

Yes.