So bestimmen Sie, ob auf einer Festplatte Dateien vorhanden sind

<%

Dimer Objfolker

Dimer objfso

Dim J.

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

Setzen Sie objfolker = fso.getFolder (d:/)

Wenn objfolker.size> 0 dann

J = 0

für jede objfile in objfolder.files

J = J+1

nächste

Wenn J> 0 dann Dateien auf dieser Festplatte gibt, gibt es insgesamt J -Dateien

.....

anders

..... 'Es gibt keine Datei auf dieser Festplatte

Ende wenn

anders

..... 'Es gibt keine Datei auf dieser Festplatte

Ende wenn

%>