技术资料 > ASP技术 > FSO专题 : 怎样判断一个盘上是否有文件

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

March 25,2004

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