ASP如何获取主机上某个文件夹内的文件数量？

<%

set fso=Server.CreateObject("伍旅袜Scripting.FileSystemObject")

set fd=fso.GetFolder(server.mappath("腔激image"镇亩))

response.write fd.files.count

set fd=nothing

set fso=nothing

%>

ASP代码过唤悉程如下：

*************************************

<%

sub showFolderFileName(path)

dim fso

dim objFolder

dim objFiles

dim objFile

set fso=server.CreateObject("scripting.filesystemobject")

set objFolder=fso.GetFolder(path)

set objFiles=objFolder.Files

Response.Write "文件夹和斗乎"&path&"包含的文件个数为："

Response.Write objFiles.count&"个<br>"

for each objFile in objFiles

Response.Write "---"&objFile.name&"<br>"销烂

next

set objFile=nothing

set objFiles=nothing

set objFolder=nothing

set fso=nothing

end sub

call showFolderFileName(upfile/2006/)

%>

*****************************************

'拍纳返型搜回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝卜贺历对路径

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

---