VBS脚本把一个目录下所有文件路径写到txt

答案:1 悬赏:10 手机版

解决时间 2021-03-05 02:46

提问者网友：献世佛
2021-03-04 11:01

我想写一段简单的vbs脚本，具体就是把一个路径（例如d:\test\）下的所有文件的绝对路径写到一个txt（一行一个路径），这样排下来，不会有子文件夹或者什么。请大家帮忙写一个例子，越简单越好，谢谢！

最佳答案

五星知识达人网友：掌灯师
2021-03-04 11:08

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Dim fld
path=fso.GetParentFolderName(WScript.ScriptFullName)
path="d:\test\" '注释掉这句，列出脚本所在目录
If fso.FolderExists(path) Then
    Set fld=fso.GetFolder(path)
    Dim fl
    Dim Text
    For Each fl In fld.Files
        Text = Text & fso.BuildPath(fl.Path,fl.Name) & vbCrLf
    Next
    Dim st
    Set st=fld.CreateTextFile("dirList.txt")
    st.Write Text
    st.Close
End If

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息