Cómo determinar si hay archivos en el disco

¿Cómo determinar si hay archivos en un disco? Creo que muchas personas sentirán curiosidad sobre cómo debemos hacer un juicio. Ahora echemos un vistazo al método para determinar si hay archivos en el disco. Los amigos interesados ​​vienen y echen un vistazo.

<%

Dim objfolder

Dim objfso

oscuro

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

Establecer objfolder = fso.getfolder ("d:/")

Si objfolder.size> 0 entonces

J = 0

para cada objfile en objfolder.files

j = j+1

próximo

Si j> 0 entonces 'hay archivos en este disco, hay un total de archivos J

.....

demás

..... 'No hay archivo en este disco

final si

demás

..... 'No hay archivo en este disco

final si

%>

Lo anterior es todo el contenido de este artículo. Espero que sea útil para el aprendizaje de todos, y espero que todos apoyen el nuevo canal de tecnología incorrecto.