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 '此盤(pán)上有文件，共有j個(gè)文件 ..... else ..... '此盤(pán)上沒(méi)有文件 end if else .... '此盤(pán)上沒(méi)有文件 end if %>
