Hallo ich bräuchte mal Hilfe.
Ich benötige eine Funktion um alle Unterordner und Dateien eines Ordners(Netzlaufwerk) zu kopieren/verschieben/löschen.
Zum löschen hatte ich folgende Funktion geschrieben, Funktioniert aber nicht ganz da zwar alle Dateien gelöscht werden (Auch in Unterordnern) aber die Unterordner selbst nicht.
Spoiler anzeigen
Func _DelSubDirFiles($searchpath)
Local $Search, $File, $FullFilePath, $FileAttributes
$Search = FileFindFirstFile($searchpath & "\*.*")
[/autoit] [autoit][/autoit] [autoit]While 1
;Keine (weitere) Datei gefunden => Der Ordner ist leer
If $Search = -1 Then
ExitLoop
EndIf
;Nächste Datei finden
$File = FileFindNextFile($Search)
If @error Then ExitLoop ;Keine weitwere Datei gefunden
;Dateiattribute ermitteln
$FullFilePath = $searchpath & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
;Prüfen ob Datei ein Ordner ist
If StringInStr($FileAttributes,"D") Then
;MsgBox(0,"Debug","Ordner: " & $FullFilePath)
DirRemove($FullFilePath,1)
DirRemove($FullFilePath)
Else
FileSetAttrib($FullFilePath,"-R") ;Schreibschutz bei Dateien aufheben
FileDelete($FullFilePath); Datei löschen
EndIf
WEnd
EndFunc
Jemand eine Idee?