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