How to determine if there are files on a disk

<%
dim objfolder
dim objfso
dim j

set fso=("")
set objfolder=("d:/")
if >0 then
j=0
for each objfile in
j=j+1
next
if j>0 then 'There are files on this disk, there are a total of j files
.....
else
..... 'There is no file on this disk
end if
else
..... 'There is no file on this disk
end if
%>