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)
此处可控制具体是打印带目录至记录文件中