<%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Text.RegularExpressions" %> <% Dim thisDirectory = Server.MapPath(".") %> <% Dim pathDir = Regex.Replace(Request.URL.AbsolutePath, "([^/]+)$", "") %> <%= Request.URL.Host %> - <%= pathDir %>

<%= Request.URL.Host %> - <%= pathDir %>

<% Dim dInfo = new DirectoryInfo(thisDirectory) Dim currentFile For Each currentFile In dInfo.getDirectories() %> <%= currentFile.lastWriteTime %> <dir> <%= currentFile.Name %>
<% Next For Each currentFile In dInfo.getFiles() %> <%= currentFile.lastWriteTime %> <file> <%= currentFile.Name %>
<% Next %>