fso获取文件夹下文件个数和显示文件名（无后缀）

转自 http://blog.sina.com.cn/s/articlelist_1224088440_2_1.html

 感谢sayhito333提供给我这段代码，为表示感谢，不修改其宣传性的函数名了，呵呵！

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