文件目录的遍历操作是相对复杂一点，原理是利用Directory类的GetDirectories方法和GetFiles方法，进行循环读取文件或是子目录的操作。我们结合实例来介绍一下。

    10.1.2 目录的遍历

    在FilesCon项目里新建一个Web窗体，命名为DirCon_Sample2.aspx，添加四个Label标签控件用于显示信息，添加三个ListBox控件分别用于显示驱动器、文件目录、文件信息。

    DirCon_Sample2.aspx页面的主要HTML代码如下：

<form id="Form1" method="post" runat="server">
   <FONT face="宋体">
    <asp:ListBox id="filelist"  runat="server"   Width="128px"
Height="120px" Font-Size="X-Small"></asp:ListBox>
    <asp:Label id="Label4" runat="server"
     Width="64px" Font-Size="X-Small" BackColor="#E0E0E0">磁盘列表</asp:Label>
    <asp:Label id="Label3" srunat="server"
     Width="96px" Font-Size="X-Small" BackColor="#E0E0E0">目录列表</asp:Label>
    <asp:ListBox id="dirlist" runat="server"
     Width="112px" Height="120px" AutoPostBack="True" Font-Size="X-Small"></asp:ListBox>
    <asp:Label id="Label1"runat="server"
     Width="320px" Height="56px" Font-Size="X-Small" BackColor="#E0E0E0">当前路径</asp:Label>
    <asp:Label id="Label2" srunat="server"
     Width="88px" Font-Size="X-Small" BackColor="#E0E0E0">文件列表</asp:Label>
    <asp:ListBox id="disklist" runat="server"
     Width="72px" Height="120px" AutoPostBack="True" Font-Size="X-Small"></asp:ListBox>
</FONT>
</form>

DirCon_Sample2.aspx的主要逻辑代码如下：

'------code begin---------
'----省略命名空间引用
Public Class DirCon_Sample2
    Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
    '此处省略窗体设计器生成的代码#End Region
    '声明公用变量 Directory类 和字符串变量
    Public mydir As System.IO.Directory
    Public str As String
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '第一次加载窗体时，初始化各控件默认信息
        '我们设计为初始化时候，读取第一个驱动器的目录和文件信息
        '由于目录层次有不确定性，为了便于实例说明，我们只读取磁盘一下两层目录信息
        If Not IsPostBack Then
            getdisk()
            getdir(disklist.Items(0).Text)
            getfiles(disklist.Items(0).Text)
        End If
End Sub
    '获取系统驱动器信息的通用过程，并把信息加载到disklist控件中
    Sub getdisk()
        disklist.Items.Clear()
        '利用Directory类的GetLogicalDrives方法获取系统驱动器信息
        '并循环读出，加载到disklist控件中
        For Each str In mydir.GetLogicalDrives()
            disklist.Items.Add(str)
        Next
End Sub
    '获取文件目录的通用过程，并把获取的信息加载到dirlist控件中
    Sub getdir(ByVal dirpath As String)
        dirlist.Items.Clear()
        '利用Directory类的GetDirectories方法获取目录信息
        '并循环读出，加载到dirlist控件中
    &n