prob de ftp URGENT

Question

voila j'utilise une source qui n'est pas de moi

'--------------------------------------------------------
'--------------------------------------------------------

Public FicSend, FicArri, FicFtp

'ne pas tenir compte de la variable SelectedFile dont je me sers pour une adaptation associée
'la supprimer ou laisser On Error Resume Next

Private Sub Form_Load()

    On Error Resume Next
    'centrer formulaire
    Left = (Screen.Width - Width) \ 2  'centrage du formulaire
    Top = (Screen.Height - Height) \ 2 'centrage du formulaire

    Label5.Caption = App.LegalCopyright & " Version : " & App.Major & "." & App.Minor & "." & App.Revision
    
    FicSend = SelectedFile                   'fichier source et chemin
    FicArri = FicCharge                      'fichier seul
    FicFtp = " /" & "/pages/foto/" & FicArri '<<<chemin definitif ftp et nom du fichier<<<
                    'pour envoyer à la racine ftp on peut remplacer "/pages/foto/" par "/"
    
    Text1.Text = FicSend
    Text2.Text = FicArri
    Text3.Text = FicFtp
    
End Sub

Private Sub mnuItemOpen_Click()
    
    On Error Resume Next
    etat.Visible = False                     'désactive la case etat
    Command1.Enabled = True                  'active le bouton envoi
       
    With CommonDialog1
    .InitDir = FicFotoSave                   'repertoire d'initialisation
    .Filter = "Tous fichiers (*.*) | *.*"    'liste tous les fichiers
    .ShowOpen                                'ouvre la fenêtre
    FicSend = .FileName                      'fichier source
    FicArri = .FileTitle                     'nom du fichier
    End With

    'si aucun choix alors prend les valeurs de newsimage    If FicSend "" Then FicSend SelectedFile    If FicArri "" Then FicArri FicCharge
       
    'dans tous les cas...
    FicFtp = " /" & "/" & FicArri '<<<chemin definitif ftp et nom du fichier<<<
                    'pour envoyer à la racine ftp on peut remplacer "/pages/foto/" par "/"
    
    Text1.Text = FicSend
    Text2.Text = FicArri
    Text3.Text = FicFtp

End Sub

Private Sub Command1_Click()

    canal = FreeFile
    Open FicSend For Append As #canal
    Write #canal, "Fonctionne"
    Close canal

    etat.Visible = True                  'active la case etat
    Command1.Enabled = False             'désactive le bouton envoi
    Fermer.Enabled = False               'désactive le bouton fermer
    
    With Inet1
    .URL = "ftp://perso-ftp.wanadoo.fr" 'bien mettre "ftp://zzzz.fr" et non "//zzzz.fr" ou "zzzz.fr"
    .UserName = "pompompom"
    .Password = "xxx"
    .Execute , "PUT d:\pass.txt pass.txt" 'ficsent = source locale - ficftp = destination ftp
    End With
    
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

    Select Case State
    Case 1
    etat.Caption = "Recherche l'adresse IP de l'ordinateur hôte."
    Case 2
    etat.Caption = "L'adresse IP de l'ordinateur hôte spécifié."
    Case 3
    etat.Caption = "En cours de connexion avec l'ordinateur hôte."
    Case 4
    etat.Caption = "La connexion avec l'ordinateur hôte est réussie."
    Case 5
    etat.Caption = "Envoie une demande à l'ordinateur hôte."
    Case 6
    etat.Caption = "La demande a été envoyée  avec succès." & Chr$(13) & Chr$(10) & "Début du transfert..."
    Case 7
    etat.Caption = "Vérification : reçoit une réponse de l'ordinateur hôte."
    Case 8
    etat.Caption = "Reçoit avec succès une réponse de l'ordinateur hôte."
    Case 9
    etat.Caption = "En cours de déconnexion avec l'ordinateur hôte."
    Case 10
    etat.Caption = "La déconnexion avec l'ordinateur hôte est réussie."
    End Select
    
    If State = 11 Then
    MsgBox "Erreur inconnue", vbCritical, "Transfert FTP"
    Fermer.Enabled = True
    End If
    If State = 12 Then
    MsgBox "Transfert réussi", vbExclamation, "Transfert FTP"
    Fermer.Enabled = True
    End If

End Sub

Private Sub mnuItemFermer_Click()
    Unload Me
End Sub

Private Sub Fermer_Click()
    Unload Me
End Sub

Private Sub mnuItemSentFtp_Click()
    canal = FreeFile
    Open FicSend For Append As #canal
    Write #canal, "Fonctionne"
    Close canal

    etat.Visible = True                  'active la case etat
    Command1.Enabled = False             'désactive le bouton envoi
    Fermer.Enabled = False               'désactive le bouton fermer
    
    With Inet1
    .URL = "ftp://perso-ftp.wanadoo.fr" 'bien mettre "ftp://zzzz.fr" et non "//zzzz.fr" ou "zzzz.fr"
    .UserName = "pompompom"
    .Password = "xxx"
    .Execute , "PUT d:\pass.txt pass.txt" 'ficsent = source locale - ficftp = destination ftp
    End With
End Sub
'------------------------------------------------
'-------------------------------------------------
le prob c ke qd je compile et que je test il debute la connexion et ensuite il me marque (en se fermant)
"erreur d'execution 35754 Connexion impossible avec l'hote distant"

est ce que cela vient de la source où de l'hebergeur ?
merci :-))

mazix · Answer

.o0M0o.

Prob de ftp <--> URGENT

1 réponse

Discussions similaires