AutoIt3获取当前目录下文件名列表

#include <Array.au3>
#Include <File.au3>
#AutoIt3Wrapper_Icon=E:\AUTORUN\ico.ico ;

Local $FileNumber = 0 ;记录数组维数，全局变量
Local $FileArray[1] ;返回的文件名主数组（全路径），全局变量
Local $result = "result.txt"

;FindFiles("C:\photo", "*.jpg") ;这里改为你自己要遍历的文件夹
FindFiles(@WorkingDir, "*.*") ;遍历当前工作目录
;$FileArray[0] = $FileNumber
;_ArrayDisplay($FileArray, "Pictures");调用“Array.au3”的子函数函数，显示整个数组信息
FileClose(FileOpen($result, 2)) ;清空文本内容
For $i = 1 To $FileNumber
;$FileArray[$i]=StringTrimRight ( $FileArray[$i],4 ) ;删除后缀
FileWriteLine($result, $FileArray[$i])
Next

Func FindFiles($path,$filelx)
Local $filelist
Local $folders
Local $i,$j,$newpath
$filelist = _FileListToArray ($path,$filelx,1)
if not @error then
if $filelist[0]>0 Then
for $i=1 to $filelist[0]
$FileNumber = $FileNumber + 1
ReDim $FileArray[UBound($FileArray) + 1]
;$FileArray[$FileNumber] = $path & "\" & $filelist[$i]
$FileArray[$FileNumber] = $filelist[$i]
Next
EndIf
EndIf
$folders = _FileListToArray ($path,"*",2)
if Not @error Then
If $folders[0] > 0 Then
For $j=1 to $folders[0]
$newpath = $path & "\" & $folders[$j]
FindFiles($newpath,$filelx)
Next
EndIf
EndIf
EndFunc

转载请注明：RAIN MAN » AutoIt3获取当前目录下文件名列表

喜欢 2