早上有人问什么判断一个盘上是否有文件，我想这样就可以了。可能是太烦了些

<%
  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
%>
    
%>