<%
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 файлов
.....
еще
..... 'на этом диске нет файла
конец, если
еще
..... 'на этом диске нет файла
конец, если
%>