Supprimer un répertoire ftp récursivement

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 142 fois - Téléchargée 28 fois

Commenter

Contenu du snippet

Vous n'avez qu'à utiliser FtpRecursiveRemoveDirectory (session, nom_du_dossier) et le répertoire se supprime récursivement sur le serveur distant!

Source / Exemple : 


Public Function FtpRecursiveRemoveDirectory(ByVal hConnect As Long, ByVal dirName As String) As Boolean
    Dim hList As Long
    Dim WFDI As WIN32_FIND_DATA 'IMPORTANT DE DÉCLARER LE TYPE
    Dim fName As String
    Dim dirDepth As Byte
    Dim fileNum As Integer
    Dim hTest As Long
    
    FtpSetCurrentDirectory hConnect, dirName
    DoEvents
    dirDepth = 1
    
loopPoint:
    While dirDepth
        hList = FtpFindFirstFile(hConnect, "*.*", WFDI, 0, 0)
        If hList Then
            Do
                fName = StripNull(WFDI.cFileName)
                If fName <> "." And fName <> ".." Then
                    If WFDI.dwFileAttributes = 16 Then
                        If FtpCommand(hConnect, False, 2, "rmd " & fName, 0, hTest) = False Then
                            FtpSetCurrentDirectory hConnect, fName
                            DoEvents
                            InternetCloseHandle hList
                            DoEvents
                            dirDepth = dirDepth + 1
                            GoTo loopPoint
                        End If
                    Else
                        FtpDeleteFile hConnect, fName
                    End If
                End If
            Loop While InternetFindNextFile(hList, WFDI)
        End If
        FtpSetCurrentDirectory hConnect, ".."
        DoEvents
        InternetCloseHandle hList
        DoEvents
        dirDepth = dirDepth - 1
    Wend
    
    InternetCloseHandle hList
    FtpCommand hConnect, False, 2, "rmd " & dirName, 0, hTest
    FtpRecursiveRemoveDirectory = True
End Function

Conclusion :


Je n'ai pas trouvé de bugs dans mon code, important s'il y en a signalez-les moi!

A voir également

Ajouter un commentaire

Commentaire

Signaler
medelidrissi
Messages postés
180
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
26 novembre 2007
 1 -
Bonjour,

S'il te plait ici on donne des sources complètes pas des bouts de codes, qu'on ne peut même pas tester. Sinon si tu veux juste savoir si ce que tu as écrit est correct, je pense que tu devrais le demander dans le forum et non pas ici.

Autrement, l'idée est bonne et intéressante.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_alpha03)