VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）

                        <p>源码如下：</p>

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

之前创业项目排行榜前十名http://www.piaodoo.com/小编更新过类似的文章，大家可以参考一下

                        友情连接： 

创业项目排行榜前十名

美文集

茂名一技

茂名一技

手游排行前十名