<%
path = "database/"
sub sayhito333(path)
dim fso
dim objFolder
dim objFiles
dim
objFile
dim n
set fso=server.CreateObject("scripting.filesystemobject")
set
objFolder=fso.GetFolder(Server.MapPath(path))
set objFiles=objFolder.Files
Response.Write
"文件夹"&path&"包含的文件个数为:"
Response.Write objFiles.count&"个<br>"
for each
objFile in objFiles
n=instr(objFile.name,".")
Response.Write "---"&Left(objFile.name,n-
1)&"<br>"
next
set objFile=nothing
set objFiles=nothing
set objFolder=nothing
set
fso=nothing
end sub
call sayhito333(path)
%>