<table border>
<tr>
<td>
Attributes 属性</td><td> DateCreated 属性</td><td> DateLastAccessed 属性</td><td> DateLastModified 属性</td><td> Drive 属性</td><td> Name 属性</td><td> ParentFolder 属性</td><td> Path 属性</td><td> ShortName 属性</td><td> ShortPath 属性</td><td> Size 属性</td><td> Type 属性<td>
<tr>
<%
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & "<tr><td>" & f1.Attributes & "</td><td>" & f1.DateCreated & "</td><td>" & f1.DateLastAccessed & "</td><td>" & f1.DateLastModified & "</td><td>" & f1.Drive & "</td><td>" & f1.Name & "</td><td>" & f1.ParentFolder & "</td><td>" & f1.Path & "</td><td>" & f1.ShortName &"</td><td>" & f1.ShortPath & "</td><td>" & f1.Size & "</td><td>" & f1.Type & "<td></tr>"
Next
ShowFolderList = s
End Function
Response.write ShowFolderList("D:\asptest")
%>
</table>
