[au3]Func _Seachfile($current, $ext, $iSize)
Local $search = FileFindFirstFile($current & "\*.*")
While 1
Dim $file = FileFindNextFile($search)
If @error Or StringLen($file) < 1 Then ExitLoop
If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
If StringRight($current & "\" & $file, StringLen($ext)) = $ext Then
If Not (FileGetSize($current & "\" & $file) < $iSize) Then
ConsoleWrite($current & "\" & $file & @cr)
EndIf
EndIf
EndIf
If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
_Seachfile($current & "\" & $file, $ext, $iSize)
EndIf
WEnd
EndFunc ;==>_Seachfile[/au3]