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)
此處可控制具體是打印帶目錄至記錄文件中