怎样判断一个盘上是否有文件
更新时间：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
%>
相关文章
用asp来生成xml文件，一开始我用fso,只用了写，同时把读文件的办法也给大家2008-10-10
ASP+FSO可视化目录编历（可增、删、改）下载...2007-10-10
构建免受 FSO 威胁虚拟主机（二）...2006-10-10
ASP中FSO的神奇功能 - 简介...2006-10-10
读取目录下的文件得到一个数组...2006-10-10
文件遍历排序函数...2006-10-10
fso的一些特殊功能...2006-10-10
利用FSO取得图像文件信息...2006-10-10
利用FSO取得BMP，JPG，PNG，GIF文件信息...2006-10-10
设计 FileSystemObject...2006-10-10
最新评论