完全可以.用fso就可以搞定
<%
Dim myFileObject '声明一个FileSystemObject对象实例
Set myFileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim myFolder '声明一个Folder对象
'GetFolder方法将返回一个Folder对象
Set myFolder=myFileObject.GetFolder("d:\www")
Response.Write "<b>d:\www子文件夹如下:</b><br>"
Dim Item '声明一个变量
For Each Item In myFolder.SubFolders
Response.Write Item.Path & "<br>"
Next
Response.Write "<b>d:\www子文件如下:</b><br>"
For Each Item In myFolder.Files
Response.Write Item.Path & "<br>"
Next
%>