asp获取一个文件夹内的文件数量

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 / )
% >