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

Как определить, есть ли файлы на диске? Я считаю, что многим людям будет любопытно, как мы должны вынести суждение? Теперь давайте посмотрим на метод, чтобы определить, есть ли файлы на диске. Заинтересованные друзья приходят и посмотрите.

<%

Dim objfolder

Dim objfso

Dim J.

SET FSO = server.createObject ("scripting.filesystemobject")

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

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

j = 0

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

J = J+1

следующий

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

.....

еще

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

конец, если

еще

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

конец, если

%>

Выше всего содержание этой статьи. Я надеюсь, что это будет полезно для каждого обучения, и я надеюсь, что все будут поддерживать неправильный новый технологический канал.