<%

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

%>