页面导航： 首页 → 网络编程 → ASP编程 → FSO专题 → 正文内容 怎样判断一个盘上是否有文件

发布：dxy 字体：[增加 减小] 类型：转载

<%
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
%>

文章评论

共有 位脚本之家网友发表了评论我来说两句