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

[Tasolcheg]

Вроде все просто)
Может подскажите)
Если в папке открыт хотя бы один файл, то из нее ваще ничего не удаляется.
А желательно, что бы удалялось все кроме открытого файла.

Спойлер

FileDelete ($dir & $folderarray[$i] & "\*")

 

[gora]

#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

 

[Tasolcheg]

Спасибо большое.

 

[zbz]

a как на счёт подпапок?.

 

[AZJIO]

_FileListToArrayRec
_FO_FileSearch
_RecFileListToArray - примерно тоже что первая, но по-русски, хотя и устаревшая.