Suppression Fichier sur FTP
Bonsoir le forum, :D
Je cherche à supprimer un fichier sur un serveur FTP à l'aide d'un code trouvé dans la FAQ.
Voici la fonction:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Function SupprimeFichiers(SiteFTP As String, Utilisateur As String, MotDePasse As String, Fichier As String)
'
Dim MonFichierChemin As String
'
MonFichierChemin = oWbo.Path & "\" & Fichier
' connection au serveur
Internet_OK = InternetOpen("", 1, "", "", 0)
'
If Internet_OK Then
FTP_OK = InternetConnect(Internet_OK, SiteFTP, 21, Utilisateur, MotDePasse, 1, 0, 0)
If FtpSetCurrentDirectory(FTP_OK, "\") Then
Succès = FtpGetFile(FTP_OK, MonFichierFTP, MonFichierChemin, False, 0, &H0, 0)
Succès = FtpDeleteFile(FTP_OK, Fichier)
End If
End If
'
SupprimeFichiers = Succès '
'fermeture des pointeurs
InternetCloseHandle FTP_OK
InternetCloseHandle Internet_OK
'
End Function |
Le premier retour par la fonction "FtpGetFile" retourne TRUE donc le fichier se trouve bien sur le serveur.
Par contre la fonction "FtpDeleteFile" retourne FALSE.
J'ai regardé sur INTERNET, tous les codes que j'ai vu semblent identiques à celui-ci.
Je reste prudent, car surement devant les yeux, la solution, mais elle ne me vient pas.
Si quelqu'un peux m'apporter son aide je suis preneur.
Merci d'avance
