Der in ASP implementierte Code zur Rückgabe der Anzahl der Dateien in einem angegebenen Ordner wird wie folgt kopiert:
'Gibt die Anzahl der Dateien im angegebenen Ordner zurück. Der Eingabewert ist der absolute Pfad der Festplatte des erkannten Ordners
Funktion CountFilesNumber(folderspec)
Dim objfso,f,fc
Setze objfso=CreateObject(Scripting.FileSystemObject)
Setze f=objfso.GetFolder(folderspec)
Legen Sie fc=f.Files fest
CountFilesNumber=fc.Count
setze fc=nichts
setze f=nichts
setze objfso=nichts
Funktion beenden