Как определить, есть ли файлы на диске

<%

Dim objfolder

Dim objfso

Dim J.

Установить fso = server.createObject (scripting.filesystemobject)

Установить objfolder = fso.getFolder (d:/)

Если objfolder.size> 0, тогда

j = 0

для каждого objfile в objfolder.files

J = J+1

следующий

Если j> 0, то есть файлы на этом диске, есть в общей сложности j файлов

.....

еще

..... 'на этом диске нет файла

конец, если

еще

..... 'на этом диске нет файла

конец, если

%>