怎么用vbs查找指定文件夹下的所有文件，并把文件名取出来导到指定的.txt文件中！求代码。。。大神速来！

Option Explicit
Dim objFso, objSrcFls, strSrcFld, objFile, objDstFile, strDstFile
strSrcFld = "e:\download\" '源文件夹,请自行更改
strDstFile = "e:\vbs\FileListstxt" '输出的目标文件,请自行更改
Set objFso = CreateObject("ScriptingFileSystemObject")
Set objDstFile = objFsoOpenTextFile(strDstFile, 2, True)
Set objSrcFls = objFsoGetFolder(strSrcFld)Files
For Each objFile In objSrcFls
objDstFileWriteLine strSrcFld & objFileName
Next
Dim objFld, objSrcFld
Set objSrcFld = objFsoGetFolder(strSrcFld)SubFolders
For Each objFld In objSrcFld
Call LoopSubFlds(strSrcFld & objFldName & "\")
Next
objDstFileClose
Set objFile = Nothing
Set objSrcFls = Nothing
Set objFso = Nothing
Sub LoopSubFlds(strFld)
For Each objFile In objFsoGetFolder(strFld)Files
objDstFileWriteLine strFld & objFileName
Next
For Each objFld In objFsoGetFolder(strFld)SubFolders
Call LoopSubFlds(strFld & objFldName & "\")
Next
End Sub

以上就是关于怎么用vbs查找指定文件夹下的所有文件，并把文件名取出来导到指定的.txt文件中！求代码。。。大神速来！全部的内容，包括:怎么用vbs查找指定文件夹下的所有文件，并把文件名取出来导到指定的.txt文件中！求代码。。。大神速来！、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！