[VB6] Fonction d'erreur

Bonjour tout le monde.

Donc voila j'ai le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Command2_Click() With Inet1 On Error GoTo TraiteErreur List1.Clear .AccessType = icDirect .Protocol = icFTP .URL = txtURL.Text .UserName = txtName.Text .Password = txtPassword.Text ScanFolderFtp WaitExecute Inet1 End With TraiteErreur: AfficheErreur End Sub
...
Code:

1 2 3 4 Private Sub AfficheErreur() MsgBox LoadRessourceString(IDErreur), vbCritical, LoadRessourceString(IDMAJ) End Sub
Ce code me permet de me connecter en FTP sur une cible et doit me renvoyer un message d'erreur si le mot de passe, le nom ou l'URL ne sont pas bons. Le problème c'est que le message d'erreur s'affiche tout le temps, même quand la connexion se passe bien...

Si qq'un à une solution...

Merci ++

Bonjour

Corrige comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command2_Click()

    On Error GoTo TraiteErreur
    With Inet1
        List1.Clear
        .AccessType = icDirect
        .Protocol = icFTP
        .URL = txtURL.Text
        .UserName = txtName.Text
        .Password = txtPassword.Text
        ScanFolderFtp
        WaitExecute Inet1
    End With

   Exit Sub    
TraiteErreur:
    AfficheErreur
End Sub

En gras ce qu'il faut rajouter...

En rouge ce que je changerais

+

Théo

Super, ça marche nickel...

Merci

Citation:

Envoyé par Ribéry

Super, ça marche nickel...

Merci

Et un petit clic sur :resolu: ... Un