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

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

原文转自：http://www.ltesting.net