| |
<%@Page
Language="VB" %>
<%@ Import Namespace="System.IO"
%>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as
EventArgs)
Dim strSubFolders as String()
Dim i as Integer
strSubFolders = System.IO.Directory.GetDirectories(Server.MapPath("/"))
for i = 0 to strSubFolders.Length -
1
Response.Write(strSubFolders(i) &
"<br>")
next
Response.End
End Sub
</script> |
|
|
|
