<%
 '首先建立 FileSystemObject 物件
 Dim fso
 Set fso = Server.CreateObject("Scripting.FileSystemObject")

 '叫用 GetFolder 方法取得根目錄名稱
 Dim rootFolder
 Set rootFolder = fso.GetFolder(Server.MapPath("/"))

 '使用 SubFolders 集合取得所有子目錄資料 Folder 物件
 Dim subFolders
 Set subFolders = rootFolder.SubFolders
 For Each folder in subFolders
  Response.Write "目錄名稱: " & folder.Name & "<br>"
  Response.Write "目錄屬性: " & folder.Attributes & "<br>"
  Response.Write "Type: " & folder.Type & "<br>"
  Response.Write "Size: " & folder.Size & "<br>"
 Next

 '接下來將列出根目錄下所有檔案資料
 Dim files
 Set files = rootFolder.Files
 For Each file in files
  Response.Write "檔案名稱: " & file.Name & "<br>"
  Response.Write "檔案屬性: " & file.Attributes & "<br>"
  Response.Write "Type: " & file.Type & "<br>"
  Response.Write "Size: " & file.Size & "<br>"
 Next

 Set files = Nothing
 Set subFolders = Nothing
 Set rootFolder = Nothing
 Set fso = Nothing
%>