源碼如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
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 |
之前服務器之家小編更新過類似的文章，大家可以參考一下
原文鏈接：https://www.cnblogs.com/alterhu/archive/2012/03/08/2385169.html
