php 生成vbs文件路径,VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）...

源码如下：

Function listFilesPath(filepath)

t1=Timer()

Debug.WriteLine "****现在开始执行计数，用时："+CStr(t1)

Set fso=CreateObject("scripting.filesystemobject")

Set myfolder=fso.GetFolder(filepath)

If fso.FolderExists(filepath) then

Set subcol=myfolder.SubFolders

Set filescol=myfolder.Files

For Each file In filescol

Debug.WriteLine filepath+"\"+file.name

Next

If subcol.count>0 Then

For Each folder In subcol

'Debug.WriteLine filepath+"\"+folder.Name

listFilesPath(filepath+"\"+folder.Name)

next

End if

Else

Debug.WriteLine "没有该文件系统"

End if

Set filescol=Nothing

Set subcol=nothing

Set fso=Nothing

t2=Timer()

Debug.WriteLine "****现在完成计数，用时："+CStr(t2)

Debug.WriteLine "整个操作过程用时:"&CStr(t2-t1)&" 秒"

End function

之前我们小编更新过类似的文章，大家可以参考一下