0/5 (1 avis)
Snippet vu 8 463 fois - Téléchargée 30 fois
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
6 nov. 2006 à 10:12
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.
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.