怎样判断一个盘上是否有文件 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 怎样判断一个盘上是否有文件 (http://www.webasp.net/article/2/1202.htm)

-- 作者：未知 -- 发布日期： 2003-04-19

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

webasp.net