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