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