1
<%
2
dim objfolder
3dim objfso
4dim j
5
6set fso=server.CreateObject
7
8("scripting.filesystemobject")
9set objfolder=fso.GetFolder("c:/")
10if objfolder.size>0 then
11j=0
12for each objfile in objfolder.files
13j=j+1
14next
15if j>0 then Response.Write("有"&(j)&"个")
'response.write""&(j)&""
16else
17Response.Write("<b>没有</b>")
18end if
19
20
%>
21
<%2
dim objfolder3
dim objfso4
dim j5
6
set fso=server.CreateObject7
8
("scripting.filesystemobject")9
set objfolder=fso.GetFolder("c:/")10
if objfolder.size>0 then11
j=012
for each objfile in objfolder.files13
j=j+1 14
next15
if j>0 then Response.Write("有"&(j)&"个")'response.write""&(j)&""
16
else17
Response.Write("<b>没有</b>")18
end if19
20
%>21
