<%dimobjfolderdimobjfsodimjsetfso=server.CreateObject("scripting.filesystemobject")setobjfolder=fso.GetFolder("d:/")ifobjfolder.size>0thenj=0foreachobjfileinobjfolder.filesj=j+1nextifj>0then'此盘上有文件，共有j个文件.....else.....'此盘上没有文件endifelse....'此盘上没有文件endif%>...