'返回指定文件夾中文件的數(shù)目,傳入值為被檢測文件夾的硬盤絕對路徑 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