Voilà mon problème. j'ai un pc ou sont déclarés en ports série COM1, COM2 et COM4 (pas de com3).
J'aimerai faire un prog en VB pouvant les detecter : voila mon prog
 
Private Sub Command1_Click()
 
Dim i, a
 a = 1
 
Do
 
    For i = a To 5
        On Error GoTo line1      'si par la suite on a une erreur on va a line1
        MSComm1.CommPort = i     'le numero du port prend l'indice de boucle
        MSComm1.PortOpen = True  'on ouvre ce port
        Combo1.AddItem "COM" & i  ' afficher dans un combobox le port COMx
        MSComm1.PortOpen = False  'on le ferme pour pas paniquer apres
        a = a + 1                 'feinte
    Next i
 
Exit Sub
 
line1:
MsgBox "coucou"
a = a + 1                'pour incrémenter dans i apres, il ne sera pas
                                'dans le combobox
 
Loop Until i = 5
 
End Sub
 
mais ca marche pas. Pourquoi?

NB : désolé pour la variable 'a' elle sert a rien j'aurais pu mettre 'i' mais un évier, ça peut toujours servir, non? :-)

Le mieux serait d'utiliser la fonction EnumPorts() de l'API Win32.

déclare tes variables correctement, c'est la première des choses. Mets des points d'arrets dans ton code pour savoir si les les différents morçeaux s'exécutent (point rouge). Ca peut servir parfois ! sinon : www.allapi.net pour les API windows