<%@ Page language="VB" %>
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim subdir As String() = Directory.GetDirectories(Server.MapPath("\"))
Dim subdirectory As String
For Each subdirectory In subdir
myDirectories.text += subdirectory & "<br>"
Next subdirectory
end sub
</script>
<body>
<asp:label id="myDirectories" runat="server" />
</body>
</html>