找回密码
 加入
搜索
查看: 9640|回复: 14

[系统综合] 获取d:\123里面的根目录的所有文件的文件名(包含完整路径)并写入TXT

 火.. [复制链接]
发表于 2013-2-15 15:58:22 | 显示全部楼层 |阅读模式
获取d:\123里面的根目录的所有文件的文件名(包含完整路径)并写入TXT,之后读取TXT最后一行的文件路径!知道要用到
_FileListToArray
FileOpen
FileWrite
FileRead
但是就是用不起来啊。

评分

参与人数 1金钱 -20 贡献 -1 收起 理由
afan -20 -1

查看全部评分

发表于 2013-2-15 16:12:17 | 显示全部楼层
要用递归来寻找子目录里面的东西,原来用TC做过
发表于 2013-2-15 16:12:53 | 显示全部楼层
本级目录的很好找,用
; 显示当前目录中所有文件的文件名
$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)
这个就行了
发表于 2013-2-15 16:37:21 | 显示全部楼层

#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)
发表于 2013-2-15 16:48:16 | 显示全部楼层
$targetdir = "z:\temp"
$txtfile = @MyDocumentsDir&"\result.txt"
RunWait(@ComSpec&" /c dir /s/b """&$targetdir&""">"""&$txtfile&"""","",@SW_HIDE)
MsgBox(0,"","OK")
这个试下
发表于 2013-2-16 09:21:51 | 显示全部楼层
新手学习学习
发表于 2013-2-16 10:47:25 | 显示全部楼层
回复 4# veket_linux
不知道楼主要不要提取多级子目录的文件全名?
发表于 2013-2-16 13:35:09 | 显示全部楼层
#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)
 楼主| 发表于 2013-2-16 21:31:26 | 显示全部楼层
回复 4# veket_linux


    可以写入TXT但是,还没读取TXT最后一行内容呢··
 楼主| 发表于 2013-2-16 21:31:51 | 显示全部楼层
回复 5# kevinch


    这个只是写入吧。没有读取最后一行!
 楼主| 发表于 2013-2-16 21:32:21 | 显示全部楼层
回复 8# haijie1223


    好像貌似,压根没用。。。
发表于 2013-2-16 22:00:26 | 显示全部楼层
$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])
发表于 2013-2-17 07:49:23 | 显示全部楼层
回复 11# basc


    ~~请无视掉~
发表于 2013-2-21 23:16:20 | 显示全部楼层
学习了,有用。。。
发表于 2015-1-18 11:35:36 | 显示全部楼层
$File = fileopen('C:\logfile.log',1)    ;文本添加到文件尾
$log_text = "dfkjsfldjfwofejfsj"
filewrite($File, $log_text)
fileclose($file)
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-1 07:51 , Processed in 0.085293 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表