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

web学习吧 2006-12-16 来源: 收藏本文
<%
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
%>
关于我们 - 免责声明 - 版权所有 - 广告服务 - 友情连接 - 商务合作 - 联系我们