模板
教程
环境
性能
功能
管理
ASP.NET：目录的遍历
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>
[1]
