<HTML>
<BODY><p style="font-weight:bold;border-bottom:3px double #000099">本站所有文档目录:</p>
<table border>
<tr>
<td>Name 属性</td>
<td>DateCreated 属性</td>
<td>DateLastAccessed 属性</td>
<td>DateLastModified 属性</td>
<td>Drive 属性</td>
<td>Attributes 属性</td>
<td>ParentFolder 属性</td>
<td>Path 属性</td>
<td>ShortName 属性</td>
<td>ShortPath 属性</td>
<td>Size 属性</td>
<td>Type 属性</td>
</tr>
<%Dim fso
Dim TabStop
Dim NewLine
NewLine =""
TabStop = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim html
html=""
getFolderList fso.GetFolder("D:\"),html,0Response.Write htmlFunction getFolderList(oFolder,html,n)
Dim a
Dim tmp
tmp=""
Dim i
Dim strRootPath For i = 1 To n
tmp=tmp & " "
Next
html = html & "<div id=""mxh" & n & """>"
For Each a In oFolder.SubFolders
html = html & "<div>" & tmp & ShowFolderList(a.ParentFolder & "\" & a.name) & "</div>" & chr(13) If a.SubFolders.Count>0 Then
getFolderList a,html,n+1
End If
Next
html = html & "</div>"
End Function%>遍历目录下的所有文件和属性<%
Function ShowFolderList(folderspec) Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
tmp = " "
Select Case f1.Attributes
Case 0
tmp = "Normal:普通文件"
Case 1
tmp = "ReadOnly:只读文件"
Case 2
tmp = "Hidden:隐藏文件"
Case 4
tmp = "System:系统文件"
Case 16
tmp = "Directory:文件夹或目录"
Case 32
tmp = "Archive:上次备份后已更改的文件"
Case 1024
tmp = "Alias:链接或快捷方式"
Case 2048
tmp = "Compressed:压缩文件"
End Select
s = s & "<tr>"
s = s & "<td>" & f1.Name & "</td>"
s = s & "<td>" & f1.DateCreated & "</td>"
s = s & "<td>" & f1.DateLastAccessed & "</td>"
s = s & "<td>" & f1.DateLastModified & "</td>"
s = s & "<td>" & f1.Drive & "</td>"
s = s & "<td>" & tmp & "</td>"
s = s & "<td>" & f1.ParentFolder & "</td>"
s = s & "<td>" & f1.Path & "</td>"
s = s & "<td>" & f1.ShortName &"</td>"
s = s & "<td>" & f1.ShortPath & "</td>"
s = s & "<td>" & f1.Size & "</td>"
s = s & "<td>" & f1.Type & "<td>"
s = s & "</tr>"
Next
ShowFolderList = s
End Function%>
</table>遍历一下目录,然后对文件名字进行判断
<BODY><p style="font-weight:bold;border-bottom:3px double #000099">本站所有文档目录:</p>
<table border>
<tr>
<td>Name 属性</td>
<td>DateCreated 属性</td>
<td>DateLastAccessed 属性</td>
<td>DateLastModified 属性</td>
<td>Drive 属性</td>
<td>Attributes 属性</td>
<td>ParentFolder 属性</td>
<td>Path 属性</td>
<td>ShortName 属性</td>
<td>ShortPath 属性</td>
<td>Size 属性</td>
<td>Type 属性</td>
</tr>
<%Dim fso
Dim TabStop
Dim NewLine
NewLine =""
TabStop = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim html
html=""
getFolderList fso.GetFolder("D:\"),html,0Response.Write htmlFunction getFolderList(oFolder,html,n)
Dim a
Dim tmp
tmp=""
Dim i
Dim strRootPath For i = 1 To n
tmp=tmp & " "
Next
html = html & "<div id=""mxh" & n & """>"
For Each a In oFolder.SubFolders
html = html & "<div>" & tmp & ShowFolderList(a.ParentFolder & "\" & a.name) & "</div>" & chr(13) If a.SubFolders.Count>0 Then
getFolderList a,html,n+1
End If
Next
html = html & "</div>"
End Function%>遍历目录下的所有文件和属性<%
Function ShowFolderList(folderspec) Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
tmp = " "
Select Case f1.Attributes
Case 0
tmp = "Normal:普通文件"
Case 1
tmp = "ReadOnly:只读文件"
Case 2
tmp = "Hidden:隐藏文件"
Case 4
tmp = "System:系统文件"
Case 16
tmp = "Directory:文件夹或目录"
Case 32
tmp = "Archive:上次备份后已更改的文件"
Case 1024
tmp = "Alias:链接或快捷方式"
Case 2048
tmp = "Compressed:压缩文件"
End Select
s = s & "<tr>"
s = s & "<td>" & f1.Name & "</td>"
s = s & "<td>" & f1.DateCreated & "</td>"
s = s & "<td>" & f1.DateLastAccessed & "</td>"
s = s & "<td>" & f1.DateLastModified & "</td>"
s = s & "<td>" & f1.Drive & "</td>"
s = s & "<td>" & tmp & "</td>"
s = s & "<td>" & f1.ParentFolder & "</td>"
s = s & "<td>" & f1.Path & "</td>"
s = s & "<td>" & f1.ShortName &"</td>"
s = s & "<td>" & f1.ShortPath & "</td>"
s = s & "<td>" & f1.Size & "</td>"
s = s & "<td>" & f1.Type & "<td>"
s = s & "</tr>"
Next
ShowFolderList = s
End Function%>
</table>遍历一下目录,然后对文件名字进行判断
<table border>
<tr>
<td>Name 属性</td>
<td>DateCreated 属性</td>
<td>DateLastAccessed 属性</td>
<td>DateLastModified 属性</td>
<td>Drive 属性</td>
<td>Attributes 属性</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,tmp
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
tmp = " "
Select Case f1.Attributes
Case 0
tmp = "Normal:普通文件"
Case 1
tmp = "ReadOnly:只读文件"
Case 2
tmp = "Hidden:隐藏文件"
Case 4
tmp = "System:系统文件"
Case 16
tmp = "Directory:文件夹或目录"
Case 32
tmp = "Archive:上次备份后已更改的文件"
Case 1024
tmp = "Alias:链接或快捷方式"
Case 2048
tmp = "Compressed:压缩文件"
End Select
s = s & "<tr>"
s = s & "<td>" & f1.Name & "</td>"
s = s & "<td>" & f1.DateCreated & "</td>"
s = s & "<td>" & f1.DateLastAccessed & "</td>"
s = s & "<td>" & f1.DateLastModified & "</td>"
s = s & "<td>" & f1.Drive & "</td>"
s = s & "<td>" & tmp & "</td>"
s = s & "<td>" & f1.ParentFolder & "</td>"
s = s & "<td>" & f1.Path & "</td>"
s = s & "<td>" & f1.ShortName &"</td>"
s = s & "<td>" & f1.ShortPath & "</td>"
s = s & "<td>" & f1.Size & "</td>"
s = s & "<td>" & f1.Type & "<td>"
s = s & "</tr>"
Next
ShowFolderList = s
End Function
Response.write ShowFolderList(Server.MapPath("."))
%>
</table>