ASP.NET：目录的遍历

2022-07-15 80酷酷网 80kuku.com

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

10.1.2 目录的遍历

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

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

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 = "程序出错！
" & 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 = "程序出错！
" & 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代码如下：

[1] [2] 下一页