如何显示出某个目录下的所有文件？

[hongpeng]

如何显示出某个目录下的所有文件，具体点给代码哦，谢谢！！

[希偌]

赋予虚拟目录“目录浏览”的权限就可以了！

[buzhidao]

dim arry()
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
i=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
count=fc.count
ReDim Preserve arry(count)
For Each f1 in fc
arry(i)= f1.name
i=i+1
Next
ShowFolderList = s
End Function
ShowFolderList("c:\")
response.write arry(1)

[hongpeng]

十分感谢beyond_xiruo(希偌)，我马上给分
如果我还想取得每个文件的大小和建立时间呢？？

[hongpeng]

哎呀，我刚刚写错了，是十分感谢buzhidao()！！！　

不过也谢谢beyond_xiruo(希偌)