Discussion :

[Duddy]

Bonsoir le forum,

Je cherche à supprimer un fichier sur un serveur FTP à l'aide d'un code trouvé dans la FAQ.

Voici la fonction:

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

[Duddy]

Bonsoir le forum,

Je pense que le code fonctionne. En effet même si en pas à pas le retour est FALSE, les fichiers ont disparu du serveur.