How to determine if there are files on a disk

<%

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

%>