返回文件搜索的句柄.
FileFindFirstFile ( "文件名" )
文件名 | 表示被搜索文件名称的字符串. (* 与 ? 等通配符) |
成功: | 返回搜索"句柄", 供 FileFindNextFile 函数调用. |
失败: | 返回 -1, 发生错误. 如果文件夹为空, 则设置 @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
; 关闭搜索句柄
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
;
关闭搜索句柄
FileClose($hSearch)
EndFunc
provider with jb51.net (unicode) |