简单System.IO问题，求教，谢谢拉！！

<% @Page Language="VB" %>
    <% @Import Namespace="System.IO" %><html>
<title>ASP.NET中的Hello,World例子
</title>
<script language="VB" runat="server">
Function helloworld()
    dim achDrives() as string = Directory.GetLogicalDrives()
    dim nNumOfDrives as integer = achDrives.Length
    dim i as integer
    dim aaa as string
    aaa = "<ul>"
    for i=1 to nNumOfDrives
      aaa = aaa & "<li><a href='listdir.aspx?dir=" & Server.UrlEncode(achDrives[i]) & "'>" & achDrives[i] & "</a><br>"
    next
    aaa = "</ul>"
helloworld = aaa
End Function
</script>
<body>
<%=helloworld%></body>
</html>