grüss euch,
ich habe da ein kleines problem.
ich habe diese funktion zugemailt bekommen und sie funktioniert
auch hervorragend, jedoch wenn ich dann irgendein verzeichnis
löschen will, bekomme ich immer eine permission denied.
ich vermute mal, das diese funktion den prozess nicht richtig
beendend. vielleicht hat jemand von euch eine idee!!
merci,
Function GetAllFiles(ByVal Root$, ByVal Patt$, ByRef Field$())
Dim File$, hFile&, FD As WIN32_FIND_DATA
If Right(Root, 1) „“ Then Root = Root & „“
hFile = FindFirstFile(Root & Patt, FD)
If hFile = 0 Then Exit Function
Do
DoEvents
If pexitfunction = True Then Exit Function
File = Left(FD.cFileName, InStr(FD.cFileName, Chr(0)) - 1)
If (FD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) =
FILE_ATTRIBUTE_DIRECTORY Then
If Not File = „.“ And Not File = „…“ Then
Field(UBound(Field)) = Root & File & „“
ReDim Preserve Field(0 To UBound(Field) + 1)
GetAllFiles Root & File, Patt, Field
End If
End If
Loop While FindNextFile(hFile, FD)
End Function