復制代碼 代碼如下:
'返回指定文件夾中文件的數目，傳入值為被檢測文件夾的硬盤絕對路徑
function CountFilesNumber(folderspec)
Dim objfso,f,fc
Set objfso=CreateObject("Scripting.FileSystemObject")
Set f=objfso.GetFolder(folderspec)
Set fc=f.Files
CountFilesNumber=fc.Count
set fc=nothing
set f=nothing
set objfso=nothing
End Function
