Comment déterminer s'il y a des fichiers sur un disque

<%

objfolder faible

faible objfso

dim j

set fso = server.createObject (scripting.fileSystemObject)

définir objfolder = fso.getfolder (d: /)

Si objfolder.size> 0 alors

j = 0

pour chaque objfile dans objfolder.files

J = J + 1

suivant

Si j> 0 alors 'il y a des fichiers sur ce disque, il y a un total de fichiers j

.....

autre

..... 'Il n'y a pas de fichier sur ce disque

terminer si

autre

..... 'Il n'y a pas de fichier sur ce disque

terminer si

%>