$path = "D:\jhwl"
$type = ".exe"
_filelist($path)
Func _filelist($searchdir)
$search = FileFindFirstFile($searchdir & "\*.*")
If $search = -1 Then Return -1
While 1
$file = FileFindNextFile($search)
If @error Then
FileClose($search)
Return
ElseIf $file = "." Or $file = ".." Then
ContinueLoop
ElseIf StringInStr(FileGetAttrib($searchdir & "\" & $file), "D") Then
_filelist($searchdir & "\" & $file)
EndIf
If StringRight($file, 4) = $type Then
MsgBox(0,"JHWL","当前搜索类型文件:"&$searchdir & "\" & $file)
EndIf
WEnd
EndFunc ;==>_filelist
|