Heyho,
für euch wahrscheinlich kein Problem^^
Das skript müsste folgendes tun:
Ich aktiviere das Skript
gesamter Inhalt des festgelegten Ordners wird gelöscht (Ordner selbst aber nicht)
fertig
Heyho,
für euch wahrscheinlich kein Problem^^
Das skript müsste folgendes tun:
Ich aktiviere das Skript
gesamter Inhalt des festgelegten Ordners wird gelöscht (Ordner selbst aber nicht)
fertig
vielen dank
Unterordner werden auf die Art aber nicht gelöscht - oder?
Unterordner werden auf die Art aber nicht gelöscht - oder?
Dann entweder
oder
#include <File.au3>
$a = _FileListToArrayRec(@DesktopDir & "\Neuer Ordner")
For $i = 1 To $a[0]
If StringInStr(FileGetAttrib(@DesktopDir & "\Neuer Ordner\" & $a[$i]), "D") Then DirRemove(@DesktopDir & "\Neuer Ordner\" & $a[$i], 1)
FileDelete(@DesktopDir & "\Neuer Ordner\" & $a[$i])
Next
Geht sicherlich eleganter mit FileFindFile etc aber tut was es soll.
Ich hatte mir mal folgendes zu gemacht:
_EmptyFolder("C:\Test")
Func _EmptyFolder($s_Path)
Local $b_Success = True
If StringRight($s_Path, 1) = "\" Then $s_Path = StringTrimRight($s_Path, 1)
Local $hFFFF = FileFindFirstFile($s_Path & "\*")
If $hFFFF = -1 Then Return SetError(2, @error, False)
Do
$sFFNF = FileFindNextFile($hFFFF)
If @error Then ExitLoop
If @extended Then
If Not DirRemove($s_Path & "\" & $sFFNF, 1) Then $b_Success = False
Else
If Not FileDelete($s_Path & "\" & $sFFNF) Then $b_Success = False
EndIf
Until 0
FileClose($hFFFF)
Return $b_Success ? True : SetError(1, 0, False)
EndFunc
Alles anzeigen