Le code implémenté dans ASP pour renvoyer le nombre de fichiers dans un dossier spécifié est copié comme suit :
'Renvoie le nombre de fichiers dans le dossier spécifié, la valeur d'entrée est le chemin absolu du disque dur du dossier détecté
fonction CountFilesNumber (spéc.dossier)
Dim objfso,f,fc
Définir objfso=CreateObject (Scripting.FileSystemObject)
Définir f=objfso.GetFolder(folderspec)
Définir fc=f.Fichiers
CountFilesNumber=fc.Count
définir fc = rien
définir f = rien
définir objfso = rien
Fonction de fin