[Файловая система] Как удалить все файлы в определённой папке?

#include <File.au3>
 #include <Array.au3>
$aFileList=_FileListToArray( $sFolderFullPatch,'*',0)
_ArrayDisplay($aFileList,'$aFileList')
For $i=1 To UBound($aFileList)-1
   ;FileRecycle ( $sFolderFullPatch & '\'  $aFileList[$i] ) 
   FileRecycle ( $sFolderFullPatch & '\'  & $aFileList[$i] ) 
Next

If MsgBox(1,'Вопрос ? ','Вы действительно хотите удалить все файлы ?: ') <> 1 Then exit

#include <File.au3>
#include <Array.au3>
$sFolderFullPatch=@ScriptDir & '\Test' 
$aFileList=_FileListToArray( $sFolderFullPatch,'*',0)
If @error Then 
   MsgBox(0,'Ошибка ','указанная папка не найдена') 
   Exit   
EndIf
_ArrayDisplay($aFileList,'$aFileList')
If MsgBox(1,'Вопрос ? ','Вы действительно хотите удалить все файлы ?: ') <> 1 Then exit
For $i=1 To UBound($aFileList)-1
   FileRecycle ( $sFolderFullPatch & '\' & $aFileList[$i] ) 
Next

#include <File.au3>
$sMask = "*.*" ; маска файлов 
$sFolderFullPatch=@ScriptDir & 'Test' ; папка
 If @error Then
   MsgBox(0,'Ошибка ','указанная папка не найдена')
   Exit
EndIf
 If MsgBox(1,'Вопрос ? ','Вы действительно хотите удалить все файлы ?: ') <> 1 Then exit
 _RecycleFiles($sFolderFullPatch,$sMask)

Func _RecycleFiles($sRoot, $sFile)
    Local $FileList
    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            FileRecycle($sRoot& '' & $FileList[$i])
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles($sRoot & '' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc