<%@ Page language="vb" Debug="true"%> <% ' -------------------------------------------------------------------------- ' --- Database initialization --- dim Base As string: Base = System.IO.Path.GetDirectoryName(Context.Request.PhysicalPath)+"\TestFiles" ' --- Response initialization --- Response.ContentType = "text/xml" Response.Charset = "utf-8" Response.AppendHeader("Cache-Control","max-age=1, must-revalidate") System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US") ' --- Generating data --- Response.Write("") dim B As StringBuilder: B = new StringBuilder() AddDir(Base, "", B) Response.Write(B.ToString()) Response.Write("") ' -------------------------------------------------------------------------- %>