ASP.NET：目录的遍历

ASP.NET：目录的遍历
    文件目录的遍历操作是相对复杂一点，原理是利用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>