文件目录的遍历操作是相对复杂一点，原理是利用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控件中
Try
For Each str In mydir.GetDirectories(dirpath)
dirlist.Items.Add(str)
Next
Catch ex As Exception
Label1.Text = "程序出错！<br>" & ex.Message
End Try
End Sub
'获取文件目录中文件信息的通用过程，并把获取的信息加载到filelist控件中
Sub getfiles(ByVal dirpath As String)
filelist.Items.Clear()
'利用Directory类的getfiles方法获取目录中所有的文件信息
'并循环读出，加载到filelist控件中
Try
For Each str In mydir.GetFiles(dirpath)
filelist.Items.Add(str)
Next
Catch ex As Exception
Label1.Text = "程序出错！<br>" & ex.Message
End Try
'显示当前查看目录
Label1.Text = "当前查看目录－ " & dirpath
End Sub
'改变查看驱动器
Private Sub disklist_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles disklist.SelectedIndexChanged
getdir(disklist.SelectedItem.Text)
getfiles(disklist.SelectedItem.Text)
End Sub
'改变查看目录
Private Sub dirlist_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dirlist.SelectedIndexChanged
getfiles(dirlist.SelectedItem.Text)
End Sub
End Class
‘----cdoe end --------
10.2 文件的操作
10.2.1 文件的读写
在进行文件读写的时候，我们一般只是对文本文件进行操作，在这个实例中我们一读写一个txt文件为例。
在项目中新建一个Web窗体，明天为files_Sample1.aspx，在该web窗体里添加两个Button控件用于触发执行事件，两个TextBox控件用来显示文本。files_Sample1.aspx页面的主要HTML代码如下：
<form id="Form1" method="post" runat="server">
<asp:TextBox id="TextBox1" runat="server"
Height="112px" Width="152px"
TextMode="MultiLine"></asp:TextBox>
<asp:TextBox id="TextBox2" runat="server"
Height="112px" Width="160px" TextMode="MultiLine">
</asp:TextBox>
<asp:Button id="Button1" runat="server"
Text="写入文件内容"></asp:Button>
<asp:Button id="Button2" runat="server"
Text="读取文件内容"></asp:Button>
</form>
files_Sample1.aspx.vb的逻辑编码如下：
'------code begin---------
'----省略命名空间引用
Public Class files_Sample1_aspx
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'此处省略窗体设计器生成的代码
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
'文件的写操作事件过程
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'声明StreamWriter，用来进行文件的写操作
'该类进行写操作时，如果文件已经存在，则直接进行覆盖
'如果没有文件，则新建文件
&
