ASP (FSO)如何读取文件夹下的子文件 只要读文件夹就行!!

[zyfflash]

RT

[sy_binbin]

<%
Dim sPath, oFso, oFout, File
sPath = "bin"
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
Set oFout = oFso.GetFolder(Server.Mappath(sPath))
Response.Write "<table border='1' cellspacing='0' cellpadding='0' align='center'>" & _
"<tr align='center'>" & _
"<td>文件名称</td>" & _
"<td>文件短路径名</td>" & _
"<td>文件物理地址</td>" & _
"<td>文件属性</td>" & _
"<td>文件大小</td>" & _
"<td>文件类型</td>" & _
"<td>文件创建时间</td>" & _
"<td>最近访问时间</td>" & _
"<td>最近修改时间</td>" & _
"</tr>"
For Each File In oFout.Files
Response.Write "<tr>" & _
"<td>" & File.Name & "</td>" & _
"<td>" & File.ShortPath & "</td>" & _
"<td>" & File.Path & "</td>" & _
"<td>" & File.Attributes & "(" & SenFe_Attributes(File.Attributes) & ")</td>" & _
"<td>" & File.Size & "</td>" & _
"<td>" & File.Type & "</td>" & _
"<td>" & File.DateCreated & "</td>" & _
"<td>" & File.DateLastAccessed & "</td>" & _
"<td>" & File.DateLastModified & "</td>" & _
"</tr>"
Next
Response.Write "</table>"
Set oFout = Nothing
Set oFso = Nothing
Function SenFe_Attributes(iType)
Select Case iType
Case 0 SenFe_Attributes = "Normal-普通文件, 没有设置任何属性."
Case 1 SenFe_Attributes = "ReadOnly-只读文件,可读写."
Case 2 SenFe_Attributes = "Hidden-隐藏文件,可读写."
Case 4 SenFe_Attributes = "System-系统文件,可读写."
Case 16 SenFe_Attributes = "Directory-文件夹或目录,只读."
Case 32 SenFe_Attributes = "Archive-上次备份后已更改的文件,可读写."
Case 1024 SenFe_Attributes = "Alias-链接或快捷方式,只读."
Case 2048 SenFe_Attributes = "Compressed-压缩文件,只读."
End Select
End Function
%>