怎样判断一个盘上是否有文件
更新时间：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
%>
相关文章
在线用表单建立文件夹...2006-10-10
用ASP实现对MP3曲目信息的操作...2006-10-10
ASP中FSO的神奇功能 - 文件读取...2006-10-10
vithink小文件自动实现文件浏览下载...2006-10-10
asp(vbs)fso OpenTextFile方法参数说明
OpenTextFile是asp语言中的一个方法,打开指定的文件并返回一个 TextStream 对象，可以通过这个对象对文件进行读、写或追加2015-04-04
FSO文件对象介绍及常用函数...2006-11-11
读取目录下的文件得到一个数组...2006-10-10
文本搜索...2006-10-10
用XML+FSO+JS实现服务器端文件的...2006-10-10
ASP的Global.asa使用说明...2007-07-07
最新评论