O código implementado em ASP para retornar o número de arquivos em uma pasta especificada é copiado da seguinte forma:
'Retorna o número de arquivos na pasta especificada, o valor de entrada é o caminho absoluto do disco rígido da pasta detectada
função CountFilesNumber(folderspec)
Dim objfso,f,fc
Definir objfso=CreateObject(Scripting.FileSystemObject)
Definir f=objfso.GetFolder(folderspec)
Definir fc=f.Arquivos
CountFilesNumber=fc.Contagem
definir fc = nada
definir f = nada
definir objfso = nada
Função final