如何使用vbs找到指定文件夾中的所有文件，並取出文件名，引導到指定的。txt文件！求代碼。。。快來！

Dim objFso，objSrcFls，strSrcFld，objFile，objDstFile，strDstFile

strrcfld = " e:\ download \ " '源文件夾，請自行更改。

strdst file = " e:\ VBS \ file lists . txt " '輸出目標文件，請自行更改。

Set objFso = CreateObject("腳本。文件系統對象”)

設置objDstFile = objFso。open textfile(strdsfile，2，True)

設置objSrcFls = objFso。GetFolder(strrcfld)。文件

對於objSrcFls中的每個objFile

objDstFile。WriteLine strSrcFld & ampobjFile。名字

然後

Dim objFld，objSrcFld

設置objSrcFld = objFso。GetFolder(strrcfld)。子文件夾

對於objSrcFld中的每個objFld

調用loopsubfolds(strrcfld & amp；objFld。姓名和名稱。"\")

然後

objDstFile。關閉

Set objFile = Nothing

Set objSrcFls = Nothing

設置objFso = Nothing

子循環子文件夾

對於objFso中的每個objFile。GetFolder(strFld)。文件

objDstFile。WriteLine strFld & ampobjFile。名字

然後

對於objFso中的每個objFld。GetFolder(strFld)。子文件夾

調用loopsubfolds(strFld & amp；objFld。姓名和名稱。"\")

然後

末端接頭