广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

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