财经热点 >
Asp编程 > 早上有人问什么判断一个盘上是否有文件，我想这样就可以了。可能是太烦了些
早上有人问什么判断一个盘上是否有文件，我想这样就可以了。可能是太烦了些
浏览次数：【221】 发布日期:2009-8-13 12:09:22 文章分类：Asp编程
<%
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
%>
%>
