用asp實作的取得資料夾中檔案的個數的程式碼

asp實作的傳回指定資料夾中檔案的數目的程式碼複製程式碼程式碼如下:

'傳回指定資料夾中檔案的數目，傳入值為被偵測資料夾的硬碟絕對路徑

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