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