<%@ Page Language="VB" Debug="true" %><%@ Import Namespace="System.IO" %><script runat="server">Sub Page_Load(Source as Object, E as EventArgs) getDir(Server.MapPath("."))end subSub getDir(strDir)Dim subdirectoryEntries As String() = Directory.GetDirectories(strDir)If Directory.Exists(strDir) ThenTryDim subdirectory As StringFor Each subdirectory In subdirectoryEntriesrstText.Text += subdirectory & "<br>"listFiles(subdirectory)getDir(subdirectory) Next subdirectoryCatch ex As ExceptionstrMsg.Text = "Error : " & ex.toString() End Tryend ifend subSub listFiles(strDir)tryDim fileEntries As String() = Directory.GetFiles(strDir)Dim fileName As StringFor Each fileName In fileEntriesrstFiles.text += fileName & "<br>"Next fileNameCatch ex As ExceptionstrMsg.Text = "Error : " & ex.toString() End Tryend sub</script><html><head><title>Site Map</title></head><body><asp:label id="rstText" runat="server" Font-Names="Verdana" Font-Size="12px"/> <p><asp:label id="rstFiles" runat="server" Font-Names="Verdana" Font-Size="12px"/> <p><asp:label id="strMsg" runat="server" Font-Names="Verdana" Font-Size="12px"/> </body></html>