怎样判断一个盘上是否有文件
程序员文章站
2022-05-28 16:25:33
<%
dim objfolder
dim objfso
dim j
set fso=server.createobject("scripting.f...
<%
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 实现检测字符串是否为纯字母和数字组合的函数
下一篇： 设计 FileSystemObject