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

　　推荐阅读

　　FSO+递归生成文件列表(xml)

本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要IIS的FSO组件支持.>>>详细阅读

本文标题：怎样判断一个盘上是否有文件

地址：http://www.17bianji.com/kaifa2/ASP/33003.html

 1/2    1