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

　　<%

　　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

　　%>