[VB6] Fonction d'erreur

**Ribéry** · 25/07/2006, 16h39

Bonjour tout le monde.

Donc voila j'ai le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ++

**Theocourant** · 25/07/2006, 16h44

Bonjour

Corrige comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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