AutoIT-查找目录中文件（迭代）

#include <File.au3>

#include <Array.au3>

Dim $Dir

; ***********************************************************

; *获取目录下文件详细文件(带完整路径名的)的函数，包括子目录的文件

; *输入为带完整路径的目录名

; *输出为一个数组，$List[0]=目录内文件总数，$List[1...N]为带完整路径的

; *文件列表。

; ************************************************************

$testdir="E:\Qiyi"

FindAllFile($testdir)

$open=FileOpen("1.txt",9)

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

				$open=FileOpen("1.txt",9)

				;带目录

                ;FileWrite($open,$sDir & "\" & $sFile & @crlf)	

				;仅文件名

				FileWrite($open,$sFile & @crlf)		

				FileClose($open)

        WEnd

        ; 关闭搜索句柄

        FileClose($hSearch)

EndFunc

;_ArrayDisplay($FilesList)

 借鉴网上其他朋友的方法

FileWrite($open,$sDir & "\" & $sFile & @crlf)
此处可控制具体是打印带目录至记录文件中