<%
dim fso,fd
set fso = Server.CreateObject("Scripting.FileSystemObject")
fd=server.MapPath(".\")

set MyFolder = fso.GetFolder(fd)
%>
<pre>
名称：    <%=MyFolder.Name %>
路径：    <%=MyFolder.Path %>
驱动器：  <%=MyFolder.Drive %>
大小：    <%=MyFolder.size %>
类型：    <%=MyFolder.type %>
属性：    <%=MyFolder.Attributes %>
创建日期：<%=MyFolder.DateCreated %>