Como determinar se existem arquivos em um disco

<%

objFolder Dim

Dim objfso

dim j

set fso = server.createObject (script.filesystemoBject)

set objFolder = fso.getFolder (d:/)

Se objFolder.size> 0 então

j = 0

Para cada objfile em ObjFolder.Files

j = j+1

próximo

Se j> 0, então 'existem arquivos neste disco, há um total de arquivos j

.....

outro

..... 'não há arquivo neste disco

final se

outro

..... 'não há arquivo neste disco

final se

%>