Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 238 fois - Téléchargée 35 fois
Public Function DelDir(sPath As String, Optional SubDirectory As Boolean = False) As Long On Error Resume Next Dim FileArray As WIN32_FIND_DATA Dim hFindFile As Long Dim sFileOrDir As String Dim sDirectory As String Dim isDir As Long Dim nSubDir As Long Dim SubDir() As String Dim sRet As Long If SubDirectory = False Then DelDir = 1 hFindFile = FindFirstFile(sPath & "*.*", FileArray) If hFindFile <> INVALID_HANDLE_VALUE Then Do sFileOrDir = Left$(FileArray.cFileName, InStr(FileArray.cFileName, vbNullChar) - 1) DoEvents If Left$(sFileOrDir, 1) <> "." Then isDir = (FileArray.dwFileAttributes And &H10) If isDir = False Then SetAttr sPath & "\" & sFileOrDir, vbNormal DoEvents sRet = DeleteFile(sPath & "\" & sFileOrDir) If sRet = 0 Then DelDir = 0 Else nSubDir = nSubDir + 1 ReDim Preserve SubDir(1 To nSubDir) sDirectory = sPath & "\" & Mid$(FileArray.cFileName, 1, InStr(1, FileArray.cFileName, vbNullChar) - 1) & "\" SubDir(nSubDir) = sDirectory DelDir = DelDir(sDirectory, True) End If End If Loop Until FindNextFile(hFindFile, FileArray) = 0 If nSubDir <> 0 Then For i = 1 To nSubDir SetAttr SubDir(i), vbNormal DoEvents RmDir SubDir(i) If Err.Number <> 0 Then DelDir = 0 Next i End If FindClose hFindFile Erase SubDir If SubDirectory = False Then SetAttr sPath, vbNormal DoEvents RmDir sPath If Err.Number <> 0 Then DelDir = 0 End If End If End Function
28 juil. 2005 à 16:07
28 mai 2005 à 11:16
28 mai 2005 à 09:49
27 mai 2005 à 19:08
27 mai 2005 à 00:19
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.