<%
dim objfolder
dim objfso
dim j
set fso=server.CreateObject(scripting.filesystemobject)
set objfolder=fso.GetFolder(d:/)
if objfolder.size>0 then
j=0
for each objfile in objfolder.files
j=j+1
next
if j>0 then '此盤上有文件，共有j個文件
.....
else
..... '此盤上沒有文件
end if
else
.... '此盤上沒有文件
end if
%>