Поиск файлов с определенным расширением

#include <File.au3>
#include <Array.au3>

Example()

Func Example()
    ; List all the files and folders in the desktop directory using the default parameters.
    Local $aFileList = _FileListToArray("c:\", "*.tmp")
    If @error = 1 Then
        MsgBox(0, "", "Path was invalid.")
        Exit
    EndIf
    If @error = 4 Then
        MsgBox(0, "", "No file(s) were found.")
        Exit
    EndIf
    ; Display the results returned by _FileListToArray.
    _ArrayDisplay($aFileList, "$aFileList")
EndFunc   ;==>Example

Const $aRemove[3] = [ 2, "*.tmp", "*.mp3" ]

_Main_RemoveFiles( "D:\" )
Func _Main_RemoveFiles( $sPath )
	Local $aDir, $aFile, $Idx, $Idx2
	; ---
	For $Idx = 1 To $aRemove[0] Step 1
		$aFile = __GetFileList( $sPath, $aRemove[$Idx], 1 )
		If Not @Error Then
			For $Idx2 = 1 To $aFile[0] Step 1
				FileDelete( $sPath & $aFile[$Idx2] )
				TrayTip( "Remove...", $sPath & $aFile[$Idx2], 2, 1 )
			Next
		EndIf
	Next

	$aDir = __GetFileList( $sPath, '*', 2 )
	If Not @Error Then
		For $Idx = 1 To $aDir[0] Step 1
			_Main_RemoveFiles( $sPath & $aDir[$Idx] & "\" )
		Next
	EndIf
EndFunc

Func __GetFileList( $sPath, $sFilter = '*', $iFlag = 0)
	Local $hSearch, $sFile, $sFileList, $sDelim = "|", $aRet

	$sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\"
	If Not FileExists($sPath) Then _
		Return SetError(1, 1, "")
	If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then _
		Return SetError(2, 2, "")
	If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then _
		Return SetError(3, 3, "")

	$hSearch = FileFindFirstFile($sPath & $sFilter)
	If @error Then Return _
		SetError(4, 4, "")

	While 1
		$sFile = FileFindNextFile($hSearch)
		If @Error Then _
			ExitLoop
		If ($iFlag + @Extended = 2) Then _
			ContinueLoop

		$sFileList &= $sDelim & $sFile
	WEnd
	FileClose($hSearch)

	If Not $sFileList Then _
		Return SetError(4, 4, "")

	$aRet = StringSplit( StringTrimLeft($sFileList, 1), "|" )
	Return $aRet
EndFunc   ;==>__GetFileList