El código implementado en ASP para devolver la cantidad de archivos en una carpeta específica se copia de la siguiente manera:
'Devuelve el número de archivos en la carpeta especificada, el valor de entrada es la ruta absoluta del disco duro de la carpeta detectada
función CountFilesNumber (especificación de carpeta)
Objfso,f,fc tenue
Establecer objfso=CreateObject(Scripting.FileSystemObject)
Establecer f=objfso.GetFolder(especificación de carpeta)
Establecer fc=f.Archivos
CountFilesNumber=fc.Count
establecer fc = nada
establecer f = nada
establecer objfso = nada
Función final