디스크에 파일이 있는지 확인하는 방법

<%

Dim Objfolder

Dim objfso

희미한 j

set fso = server.createobject (scripting.filesystemobject)

set objfolder = fso.getfolder (d :/)

if objfolder.size> 0이면

j = 0

objfolder.files의 각 objfile에 대해

j = j+1

다음

J> 0이면 '이 디스크에 파일이 있으면 총 J 파일이 있습니다.

..... .....

또 다른

..... '이 디스크에는 파일이 없습니다

끝 If

또 다른

..... '이 디스크에는 파일이 없습니다

끝 If

%>