怎样显示指定目录下的特定文件及其属性？

[ameny]

我想显示C:\Inetpub\wwwroot目录及其子目录下的所有jpg和gif文件的文件名、图片大小和尺寸，各位大哥帮帮忙吧！

[tatty_bad]

利用FSO遍历一下，然后过滤

[ameny]

<%@ Language=VBScript%>
<%function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")

on error resume next
set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders

nowpath=path + "\" + objSubFolder.name

Response.Write nowpath

set objFiles=objSubFolder.Files

for each objFile in objFiles
Response.Write "<br>---"
Response.Write nowpath&"\"&objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归

next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("C:\Inetpub\wwwroot") '遍历C:\Inetpub\wwwroot盘
%>

这段代码会把指定目录下的所有文件都显示出来，并且也无法知道图片文件的大小和尺寸，哪位大哥能写段代码给我，小弟不甚感激！！

[ameny]

up