怎样判断一个盘上是否有文件
更新时间：2006年10月28日 00:00:00 作者：
<%
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
%>
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
%>
相关文章
同文件夹内文本搜索器(vbs)...2006-10-10
关于用ADO STREAM做的无组件上传程序简单介绍...2006-10-10
写入文本文件的过程函数(ASP)...2007-02-02
清空iis log 中自己登录ip的vbs...2006-10-10
fso的一些特殊功能...2006-10-10
读取目录下的所有文件(包括子目录下的所有文件)...2006-10-10
对文件的操作--建立移动删除文件夹...2006-10-10
fso的一些特殊功能...2006-10-10
FileSystemObject 对象...2006-10-10
FileSystemObject处理文件...2006-10-10
最新评论