怎样用ASP程序判断一个盘上是否有文件

2009-05-12 14:48:04来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

以下为引用的内容:
<%
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
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP读写注册表

下一篇:一个免费的简单聊天室源代码

热门词条
热门标签