源码如下:
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