怎样判断一个盘上是否有文件


            <%

dim objfolder

dim objfso

dim j

set fso=server.CreateObject(&quot;scripting.filesystemobject&quot;)

set objfolder=fso.GetFolder(&quot;d:/&quot;)

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

%>