Cómo determinar si hay archivos en un disco

<%

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

%>