Что нового

Удаление всех файлов из папки

Tasolcheg

Новичок
Сообщения
27
Репутация
0
Вроде все просто)
Может подскажите)
Если в папке открыт хотя бы один файл, то из нее ваще ничего не удаляется.
А желательно, что бы удалялось все кроме открытого файла.
Код:
FileDelete ($dir & $folderarray[$i] & "\*")
 

gora

Знающий
Сообщения
315
Репутация
19
Код:
#include <File.au3>
$MyFolder = @ScriptDir & "\1"

$FileList = _FileListToArray($MyFolder, '*', 1)
If @Error=4 Then
    MsgBox (0,"","Файлы не найдены.")
    Exit
EndIf
For $i = 1 To $FileList[0]
    FileDelete($MyFolder & "\" & $FileList[$i])
Next
 
Автор
T

Tasolcheg

Новичок
Сообщения
27
Репутация
0
Спасибо большое.
 

zbz

Новичок
Сообщения
74
Репутация
1
a как на счёт подпапок?.
 
Верх