• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AU3获取文件夹根目录的所有文件的文件名(包含完整路径)并写入TXT

AutoIT3 奇跡の海 2年前 (2017-06-19) 797次浏览 已收录 0个评论 扫描二维码

AU3获取文件夹根目录的所有文件的文件名(包含完整路径)并写入TXT

简介

获取文件夹根目录的所有文件的文件名(包含完整路径)并写入TXT 需要用到的函数
_FileListToArray ;FileOpen;FileWrite;FileRead;
如何列出指定目录下的所有目录(不包括子目录和隐藏目录)

#include <File.au3>
$aFolder = _FileListToArray("路径","*",2)

源码例子

#include <File.au3>
$targetdir = "D:\123"
$txtfile = @DesktopCommonDir & "\result.txt"
$handle = FileOpen($txtfile, 2)
$buffer = ""
$files = _FileListToArray($targetdir, "*", 1)
If @error Then
        $buffer = ""
Else
        For $i = 1 To $files[0]
                $buffer &= $files[$i] & @CRLF
        Next
EndIf
FileWrite($handle, $buffer)
FileClose($handle)

#include <file.au3>
Dim $filelist, $dir
$dir = "d:\123"
FileDelete("file.txt")
$filelist = _FileListToArray($dir)
If Not @error Then        
        For $i = 1 To $filelist[0]
                FileWriteLine(@ScriptDir & "\file.txt", $dir & "\" & $filelist[$i])
        Next
EndIf

Dim $path = FileReadLine("file.txt", $filelist[0])
MsgBox(0, "", $path)
; 显示当前目录中所有文件的文件名
$search = FileFindFirstFile("*.*")  

; 检查搜索是否成功
If $search = -1 Then
    MsgBox(0, "错误", "没有文件/目录 匹配搜索")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    
    MsgBox(4096, "文件:", $file)
WEnd

; 关闭搜索句柄
FileClose($search)

调用批处理

$targetdir = "z:\temp"
$txtfile = @MyDocumentsDir&"\result.txt"
RunWait(@ComSpec&" /c dir /s/b """&$targetdir&""">"""&$txtfile&"""","",@SW_HIDE)
$arr=StringSplit(FileRead($txtfile),@CRLF,1)
MsgBox(0,"",$arr[$arr[0]-1])

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AU3获取文件夹根目录的所有文件的文件名(包含完整路径)并写入TXT!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址