回复 1# kangaroobf
帮助里已经有了清楚示例!
但搜索子目录文件时,无法指定文件类型. 所以需要我们变通一下,只记录自己想要的文件类型.#include<array.au3>
Local $a[1]
FindAllFile('C:\Users\Alam\Desktop\666', $a)
_ArrayDisplay($a, $a[0])
Func FindAllFile($sDir, ByRef $aArray)
Local $sFile, $hSearch
If Not IsArray($aArray) Then Return SetError(1)
$hSearch = FileFindFirstFile($sDir & "\*.*")
; 检查搜索是否成功
If $hSearch = -1 Then Return
While 1
Local $sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
FindAllFile($sDir & "" & $sFile, $aArray)
ContinueLoop
EndIf
If StringInStr($sFile, '.jpg') Then
_ArrayAdd($aArray, $sDir & "" & $sFile)
$aArray[0] += 1
EndIf
WEnd
; 关闭搜索句柄
FileClose($hSearch)
EndFunc
|