Discussion :

[Mut]

Bonjour,

J'ai adapter la méthode de la faq afin d'uploader un fichier sur un serveur ftp.
Le seul soucis c'est qu'il n'indique pas quand celui-ci est bien fini d'etre transférer sur le serveur...y'a t-il un moyen de savoir ?

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
20
21
 
'sauvegarde sur ftp
 
'Envoi et réception d'un fichier
 
Dim HwndConnect As Long
Dim HwndOpen As Long
'Ouvre internet
HwndOpen = InternetOpen("ftpperso.domaine.fr", 0, vbNullString, vbNullString, 0)
'Connection au site ftp
HwndConnect = InternetConnect(HwndOpen, "ftpperso.domaine.fr", 21, _
  "test.perso.domaine.fr", "mdp", 1, 0, 0)
 
'positionnement du curseur dans le répertoire
FtpSetCurrentDirectory HwndConnect, "documents/test"
 'Téléchargement de test.txt
 
FtpPutFile HwndConnect, "C:\Users\admin\Desktop\cuntest.doc", "cttest2.doc", &H0, 0
 
InternetCloseHandle HwndConnect 'Ferme la connection
InternetCloseHandle HwndOpen 'Ferme internet

Merci

[LedZeppII]

Bonjour,

Après exécution de FtpPutFile, l'opération de transfert est finie.
Avec succès ou en erreur.

Code :

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

1
2
3
4
5
6
7
If FtpPutFile(HwndConnect, "C:\Users\admin\Desktop\cuntest.doc", "cttest2.doc", 0, 0) = False Then
   ' Erreur
   MsgBox "Le transfert a échoué"
Else
   ' Succès
   MsgBox "Transfert terminé"
End if

A+

[Mut]

Génial !

Merci !!