Question

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

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

Answer 1

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

追问

　　Text = Text & fso.BuildPath(fl.Path,fl.Name) & vbCrLf

非常感谢！ 不过请问想要去掉fl.Name这个变量 该如何编辑？
这样子排下来 输出结果是d:\test\1.txt 1.txt
我想要的是d:\text\1.xt

追答

哪这个fso.BuildPath(fl.Path,fl.Name)改成fl.Path好了，没注意。

追问

非常感谢！ 本来应该要采纳你的问题了 但是有个还是很头疼的问题麻烦你一并帮我解答下，拜托了！
是这样：
我需要做一个设置：例如 D:\test\下有两个文件，A.txt B.txt
要求是 If A存在 and B不存在 then 做我需要做的事情
两个条件都不满足或者满足一个的时候都啥也不做

想了半天，就没弄清楚这个咋写.. If A存在 and B存在 我是会写的

追答

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 & fl.Path & vbCrLf '就这里修改一下
    Next
    Dim st
    Set st=fld.CreateTextFile("dirList.txt")
    st.Write Text
    st.Close
End If