|
文件目录的遍历操作是相对复杂一点，原理是利用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，用来进行文件的写操作
‘该类进行写操作时，如果文件已经存在，则直接进行覆盖
‘如果没有文件，则新建文件
Dim sw As System.IO.StreamWriter
Try
‘利用File类的CreateText新建文件，并指定路径
sw = System.IO.File.CreateText(Server.MapPath(".") + "\TestTXT.txt")
‘把textbox1中的文本内容以文本流写入
sw.WriteLine(TextBox1.Text.ToString)
‘关闭文本流
sw.Close()
‘提示成功～！
Response.Write("<script> alert(‘TestTXT.txt文件已经写入内容！‘);</script>")
Catch ex As Exception
Response.Write("程序执行出,信息描述如下：<br>" & ex.Message)
End Try
End Sub
‘文件读出操作事件过程
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘声明StreamReader，用来进行文件的读出操作
Dim sr As System.IO.StreamReader
‘检测是否存在
If System.IO.File.Exists(Server.MapPath(".") + "\TestTXT.txt") Then
Try
sr = System.IO.File.OpenText(Server.MapPath(".") + "\TestTXT.txt")
TextBox2.Text = "以下是从TestTXT.txt读出的内容"
TextBox2.Text += vbCrLf & "----------------" & vbCrLf & sr.ReadToEnd
sr.Close()
Catch ex As Exception
Response.Write("程序执行出,信息描述如下：<br>" & ex.Message)
End Try
Else
‘如果不存在该文件，提示！
Response.Write("<script> alert(‘TestTXT.txt文件不存在！‘);</script>")
End If
End Sub
End Class
‘------code end -----------
10.2.2 文件的追加和删除
文件删除操作是把文件删除掉，追加操作是在已经存在的文件中，在原有内容的尾处追加新的内容。下面我们来通过实例验证。
在FileCon项目里添加一个新的web窗体，命名为files_Sample2.aspx，添加一个TextBox控件，用来填写追加内容，两个Button控件，用来执行命令。files_Sample2.aspx页面的主要HTML代码如下：
<form id="Form1" method="post" runat="server">
<TABLE id="Table1" style="WIDTH: 300px; HEIGHT: 176px" cellSpacing="1" cellPadding="1"
width="300" border="1">
<TR align="center">
<TD align="center">文本内容<br>
<asp:textbox id="TextBox1" runat="server" Width="176px" Height="148px" TextMode="MultiLine"></asp:textbox><br>
<asp:button id="Button2" runat="server" Width="96px" Height="28px" Text="删除文件"></asp:button></TD>
<TD align="center">填写追加内容：<br>
<asp:textbox id="TextBox2" runat="server" Width="152px" Height="144px" TextMode="MultiLine"></asp:textbox><br>
<asp:button id="Button1" runat="server" Width="112px" Height="32px" Text="追加操作"></asp:button></TD>
</TR>
</TABLE>
</form>
files_Sample2.aspx页面的主要逻辑代码如下：
‘------code begin---------
‘----省略命名空间引用
Public Class files_Sample2
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
‘在此处放置初始化页的用户代码
If Not IsPostBack Then
textread()
End If
End Sub
‘读取文件内容的通用过程
Sub textread()
Dim sr As System.IO.StreamReader
Try
sr = System.IO.File.OpenText(Server.MapPath(".") & "\TestTXT.txt")
TextBox1.Text = sr.ReadToEnd
sr.Close()
Catch ex As Exception
End Try
End Sub
‘文件追加事件过程
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sw As System.IO.StreamWriter
Try
‘同样使用StreamWriter类，在使用File类打开文件时候
‘使用file类的AppendText方法就可以实现对文本文件的追加
sw = System.IO.File.AppendText(Server.MapPath(".") & "\TestTXT.txt")
sw.Write(TextBox2.Text)
sw.Close()
Response.Write("<script> alert(‘TestTXT.txt文件已经成功追加新内容！‘);</script>")
Catch ex As Exception
Response.Write("程序执行出,信息描述如下：<br>" & ex.Message)
End Try
textread()
End Sub
‘文件删除通用过程
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
‘ 文件删除时候(, 只需使用file类的Delete方法就可以轻易实现)
System.IO.File.Delete(Server.MapPath(".") & "\TestTXT.txt")
Response.Write("<script> alert(‘TestTXT.txt文件已经成功删除！‘);</script>")
Catch ex As Exception
Response.Write("程序执行出,信息描述如下：<br>" & ex.Message)
End Try
End Sub
End Class
‘－－－cdoe end－－－－－
保存编译后，files_Sample2.aspx运行结果如图10.4所示。
图10.4 files_Sample2.aspx运行结果
10.3 本章小结
本章主要介绍了对系统文件的操作方法和技巧。
在ASP.NET中，对文件的操作主要牵涉到System.IO命名空间中的Directory类和File类，利用Directory类可以进行对目录的建立、删除、遍历等操作；利用File类，结合StreamWriter类和StreamReader类就可以实现对文件的操作。File类的方法属性有很多，可以根据实际情况灵活使用。
在下一章中，我们将GDI+绘制图形和图像处理技术的一些知识。
作者：李宗民 来源：IT168 (责任编辑:webjx
|
