filetree

;file tree 列表
dim $oFILE
dim $Dir,$file

$oFILE = fileopen ("D:\test2\autoit\CHM\ttt.txt",2)

If $oFILE = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

filetree("D:\work\Doc\npac_chm\sa\");搜索 ( ) 目錄內所有子目錄及檔案列表
Func filetree($Dir)
if StringRight($Dir, 1)<>"\" Then $Dir=$Dir&"\";使路徑以"\"結尾
$search = FileFindFirstFile($Dir&"*.*")
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If FileGetAttrib ($Dir&$file)="D" Then;如果找到的是目錄則
FileWriteline($oFILE,"DIR " & @tab & $Dir&$file)
;MsgBox(4096, "文件：", $Dir&$file);顯示找到的目錄
filetree($Dir&$file);遞歸搜索
else
FileWriteline($oFILE, "FILE" & @tab & $Dir&$file)
EndIf
WEnd
; 關閉搜索句柄
FileClose($search)
EndFunc
FileClose($oFILE)