Hola que tal foro es mi primer vez con ustedes y quisiera que me ayudaran en algo

Como puedo saber cuantos puertos serie tiene disponible enmi maquina, ya que necesito saberlo antes de que arranque una aplicacion que necesita dicho puerto, lo primero que se me ocurrio bueno hago un ciclofor como el siguiente

Sub check_serial()
'Luis 3/FEB/09

For i = 1 To 255
MSComm1.CommPort = i
MSComm1.PortOpen = True
a = a + 1 'cuenta el numero de puertos disponibles
On Error GoTo salir
List1.AddItem i

salir:
Exit For

Next i

If List1.ListCount = 0 Or i <> 1 Then
MsgBox "Hablar a ing de controles, No hay puerto serie en la pc o el numero de puerto serie esta equivocado", vbCritical, "Error en la pc"
For f = 1 To a: MSComm1.PortOpen = False: Next f
rs1 = False
a = 0
Else
rs1 = True
End If
End Sub

pero no se si exita alguna otra forma de saberlo con algun control de windows de antemano gracias por su ayuda

Hola,

Aqui igual puedes encontrar algun ejemplo

http://www.planetsourcecode.com/vb/d...d=1#categories

Un saludo.