allez quoi keski va pas ?
-------------------------------
Réponse au message :
-------------------------------
Bon alors je pense avoir bien compris mais ça ne marche pas !
la stausbar de ma dialog stagne sur
"reçoit avec succès une réponse en provenance de l'ordinateur hôte." et mon fichier n'est jamais transmit !
mon code :
Private Sub OKButton_Click()
On Error GoTo ErrorHandler
With Inet1
.URL = "www.monsite.com"
.UserName = "moi"
.RemotePort = "siteWeb"
.Password = "pipo"
If FTPremorDir.Text <> "" Then
.Execute , "CD " & FTPremorDir.Text
While Inet1.StillExecuting
DoEvents
Wend
End If
.Execute , "PUT " & Pathtofile & Filename & " " & Filename
End With
MousePointer = ccDefault
Exit Sub
ErrorHandler:
MousePointer = ccDefault
MsgBox Err.Description
End Sub
Private Sub Inet1_StateChanged(ByVal state As Integer)
Select Case state
Case 1
etat.SimpleText = "Recherche l'adresse IP de l'ordinateur hôte."
Case 2
etat.SimpleText = "L'adresse IP de l'ordinateur hôte spécifié."
Case 3
etat.SimpleText = "En cours de connexion avec l'ordinateur hôte."
Case 4
etat.SimpleText = "La connexion avec l'ordinateur hôte est réussie."
Case 5
etat.SimpleText = "Envoie une demande à l'ordinateur hôte."
Case 6
etat.SimpleText = "La demande a été envoyé avec succès."
Case 7
etat.SimpleText = "Reçoit une réponse en provenance de l'ordinateur hôte."
Case 8
etat.SimpleText = "reçoit avec succès une réponse en provenance de l'ordinateur hôte."
Case 9
etat.SimpleText = "En cours de déconnexion avec l'ordinateur hôte."
Case 10
etat.SimpleText = "La déconnexion avec l'ordinateur hôte est réussie."
Case 11
etat.SimpleText = "Une erreur s'est produite lors de la communication avec l'ordinateur hôte."
Case 12
etat.SimpleText = "L'exécution de la demande est terminée et toutes les données ont été reçues."
End Select
If state = 11 Then
MsgBox "Une erreur s'est produite lors de la communication avec l'ordinateur hôte."
End If
End Sub
|