返回 FileFindFirstFile 搜索句柄的對應(yīng)文件名.
FileFindNextFile ( 搜索句柄 )
搜索句柄 | 由 FileFindFirstFile 函數(shù)返回的搜索句柄. |
成功: | 返回 FileFindFirstFile 搜索句柄的對應(yīng)文件名, @extended 設(shè)置為 1, 文件名是一個目錄. |
失敗: | 設(shè)置 @error 為 1, 沒有更多匹配的文件/目錄. |
; 顯示當前目錄所有文件的文件名
Local $search
= FileFindFirstFile("*.*")
; 檢查搜索是否成功
If $search
= -1 Then
MsgBox(0, "錯誤", "沒有匹配搜索模式的文件或目錄")
Exit
EndIf
While 1
Local
$file =
FileFindNextFile($search)
If
@error Then
ExitLoop
MsgBox(4096, "找到的文件:", $file)
WEnd
; 關(guān)閉搜索句柄
FileClose($search)
;=============================
;附加示例: 遞歸查找當前目錄及其子目錄下的所有文件(3.3.7.20
無此示例)
;=============================
FindAllFile(@ScriptDir)
Func FindAllFile($sDir)
Local $hSearch = FileFindFirstFile($sDir & "\*.*")
;
檢查搜索是否成功
If $hSearch = -1
Then Return
While 1
Local
$sFile =
FileFindNextFile($hSearch)
If
@error Then
ExitLoop
If
@extended Then
FindAllFile($sDir
& "\"
& $sFile)
ContinueLoop
EndIf
FileWriteLine("找到的文件.txt",$sDir
& "\"
& $sFile)
WEnd
;
關(guān)閉搜索句柄
FileClose($hSearch)
EndFunc
provider with jb51.net (unicode) |