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获取当前目录下文件名列表

    喜欢 0

还没有人抢沙发呢~