怎样判断一个盘上是否有文件
类别: 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
%>
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
%>
- 上一篇: 献给学习XMLHTTP的朋友
- 下一篇: 从网页上下载控件时制作CAB包的方法
