AutoIT-查⽬录中⽂件（迭代）#include <File.au3>
#include <Array.au3>
autoitDim $Dir
; ***********************************************************
; *获取⽬录下⽂件详细⽂件(带完整路径名的)的函数，包括⼦⽬录的⽂件
; *输⼊为带完整路径的⽬录名
; *输出为⼀个数组，$List[0]=⽬录内⽂件总数，$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)
此处可控制具体是打印带⽬录⾄记录⽂件中

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。