怎样判断一个盘上是否有文件

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