怎样用Directory这个类，实现显示本地某一硬盘上的目录和文件夹。

<%@ Import Namespace="System.IO" %>
<html>
<head>
<meta name="GENERATOR" Content="ASP Express 2.1">
<title>Drives/Folders/Files</title>
<script language="VB" runat="server">
Dim sSystemDrives as String()
Dim intNumberOfDrives as Integer
Dim sDrive
Dim strParent As String
Dim sDriveList as string
Sub Page_Load(Source As Object, E As System.EventArgs)Dim drives As String() = Directory.GetLogicalDrives()
Dim count As Integer = drives.Length
Dim i As Integer
For i = 0 To count - 1
sDriveList += "<span class=""dobig""><a href=Files.aspx?d=" & drives(i) & " class='dobig'>" & _
drives(i) & " </a>   </span> "
Next i
Literal1.text+=sDriveList
Literal1.text += "<hr>"if request.Querystring("d") <> "" then
Dim d as String
d=request.querystring("d")
GetFiles()
End If
End Sub Sub GetFiles()   Try
      Dim strDir As String = Request.QueryString("d")     
strParent = strDir.Substring(0, strDir.LastIndexOf("\"))
'strParent += strParent.EndsWith(":") ? "\\" : ""
if strParent.endswith(":") then
strParent=strParent & "\"
End If
      upLink.NavigateUrl = "files.aspx?d=" + strParent
      txtCurrentDir.Text = "Address: <b>" + strDir + "</b>"
      Dim DirInfo As New DirectoryInfo(strDir)
      Dim subDirs As DirectoryInfo() = DirInfo.GetDirectories()
      Dim Files As FileInfo() = DirInfo.GetFiles()
      txtFileList.Text = "<table border=""0"" width=""50%"">"
      Dim i As Integer
      For i = 0 To subDirs.Length - 1
txtFileList.Text += "<tr><td><img src='images/folder.gif'><a href=""files.aspx?d=" & _
subDirs(i).Fullname & _
chr(34) &">" & subDirs(i).Name & "</a></td><td valign='bottom'>" & _
subDirs(i).LastWriteTime & "</td></tr>"
      Next i
      For i = 0 To Files.Length - 1
if right(Files(i).Name, 3) = "gif" or right(Files(i).Name, 3) = "jpg" then
txtFileList.Text += "<tr><td><img src='images/file.gif'><a href='" & _
strDir & "/" &  Files(i).Name & "' target='_blank'>" & _
Files(i).Name & "</a></td><td valign='bottom'>" & _
Files(i).LastWriteTime & "</td></tr>"
         
else
txtFileList.Text += "<tr><td><img src='images/file.gif'>" & _
Files(i).Name & "</td><td valign='bottom'>" & _
 Files(i).LastWriteTime & "</td></tr>"
End If      Next i
      txtFileList.Text += "</table>"
   
   Catch 
      txtFileList.Text = "Error retrieving directory info - Check Drive ("  & strParent & ")"
   End TryEnd Sub</script><STYLE TYPE="text/css">
<!-- 
BODY {
font-family : Arial;
font-size : 10pt;
}
TD {
font-family : Arial;
font-size : 10pt;
}
.DoBig {
font-family : Verdana;
font-size : 12pt;
font-weight : bold;
}
-->
</STYLE>
</head>
<body>
<div align="center"><asp:Literal ID="literal1" text="<b>Drives:</b><br>" runat="server" /></div>
<form runat="server">
<asp:HyperLink id="upLink" runat="server" ImageUrl="images/up.gif"/>
<br/>
<asp:Label id="txtCurrentDir" Font-Name="MS Sans Serif" Font-Size="8pt" runat="server"/>
<br><br>
<asp:Label id="txtFileList" Font-Name="MS Sans Serif" Font-Size="8pt" runat="server"/>
</form>
</body>
</html>