|
基于B/S結構的信息管理系統(tǒng)中，一般要比普通的網站有更多的技術要求，比如OA系統(tǒng)等。這些系統(tǒng)往往需要直接對系統(tǒng)文件進行操作，比如文件目錄的瀏覽和增刪操作、文件的增刪操作等。ASP.NET為程序員們提供了豐富的文件操作接口，根據提供的接口可以高效地實現需求中的功能。
ASP.NET中的文件操作主要應用了System.IO命名空間中的幾個類：Directory類、file類、StreamReader類等。我們知道，在進行Web方式的系統(tǒng)文件操作時候，像進行數據庫的數據操作一樣，在進行文件操作之前，必須確保有必要的文件操作權限。
10.1 目錄的操作
10.1.1 目錄創(chuàng)建和刪除
使用ASP.NET程序來管理文件或目錄有多種方法，比如Directory.CreateDirectory，DirectoryInfo.Create等方法來創(chuàng)建一個目錄，這里我們使用Directory類的CreateDircetory方法來創(chuàng)建一個目錄。
使用Visual Studio.net 2003來創(chuàng)建一個Web 應用程序命名為FilesCon，新建一個窗體，命名為DirCon_Sample1.aspx,并添加兩個Button控件。DirCon_Sample1.aspx主要HTML代碼如下：
<form id="Form1" method="post" runat="server">
<FONT face="宋體">
<asp:Button id="Button1"
runat="server"
Text="新建Testfolder目錄"
Width="120px" Height="32px">
</asp:Button>
<asp:Button id="Button2"
runat="server"
Text="刪除Testfolder目錄"
Width="113px" Height="32px">
</asp:Button>
</FONT>
</form>
DirCon_Sample1.aspx.vb中的邏輯代碼如下：
‘-------code begin-----
Imports System.IO
Imports System.IO.Directory
Imports System.Web.UI
Public Class WebForm1
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
‘聲明Directory類
Dim dircre As System.IO.Directory
‘聲明文件目錄的路徑，改路徑為物理絕對路徑
Dim dir As String = Server.MapPath(".") + "\Testfolder\"
Try
‘判斷該文件目錄是否存在
If Not dircre.Exists(dir) Then
‘利用Directory類的CreateDirectory方法創(chuàng)建該目錄
dircre.CreateDirectory(dir)
‘彈出對話框，提示創(chuàng)建成功！
Response.Write("<script> alert(‘Testfolder目錄已經成功創(chuàng)建！‘);</script>")
Else
Response.Write("<script> alert(‘Testfolder目錄已經存在！‘);</script>")
End If
Catch ex As Exception
Response.Write("程序執(zhí)行出,信息描述如下：<br>" & ex.Message)
End Try
End Sub
‘刪除目錄過程
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘聲明Directory類
Dim dircre As System.IO.Directory
‘聲明文件目錄的路徑，改路徑為物理絕對路徑
Dim dir As String = Server.MapPath(".") + "\Testfolder\"
Try
‘判斷該文件目錄是否存在
If dircre.Exists(dir) Then
‘利用Directory類的CreateDirectory方法刪除該目錄
‘ Directory類的Delete方法只能刪除空目錄，當該目錄內有文件時，刪除就會出錯！
dircre.Delete(dir)
‘ dircre.CreateDirectory(dir)
‘彈出對話框，提示創(chuàng)建成功！
Response.Write("<script> alert(‘Testfolder目錄已經成功刪除！‘);</script>")
Else
Response.Write("<script> alert(‘Testfolder目錄不存在！‘);</script>")
End If
Catch ex As Exception
Response.Write("程序執(zhí)行出,信息描述如下：<br>" & ex.Message)
End Try
End Sub
End Class
‘-------code end-----
保存編譯后，DirCon_Sample1.aspx的運行結果如圖10.1所示。
圖10.1
在單擊按鈕【新建Testfolder目錄】后，在FilesCon目錄下，就會新建一個名為“Testfolder”的目錄，單擊按鈕【刪除Testfolder目錄】后，如果“Testfolder”不為空的情況下，就可以實現對該目錄的刪除。
作者：李宗民 來源：IT168 (責任編輯:webjx
|
