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

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

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