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

Comment déterminer s'il y a des fichiers sur un disque? Je crois que beaucoup de gens seront curieux de savoir comment nous devrions porter un jugement? Voyons maintenant la méthode pour déterminer s'il y a des fichiers sur le disque. Les amis intéressés viennent jeter un œil.

<%

objfolder faible

faible objfso

dim j

set fso = server.createObject ("scripting.filesystemObject")

set 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

%>

Ce qui précède est tout le contenu de cet article. J'espère que cela sera utile à l'apprentissage de tous, et j'espère que tout le monde soutiendra le mauvais canal de la nouvelle technologie.