<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 窗體設(shè)計(jì)器生成的代碼 "
    ‘此處省略了窗體設(shè)計(jì)器生成的代碼
    #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
        ‘聲明文件目錄的路徑，改路徑為物理絕對(duì)路徑
        Dim dir As String = Server.MapPath(".") + "\Testfolder\"
        Try
            ‘判斷該文件目錄是否存在
            If Not dircre.Exists(dir) Then
                ‘利用Directory類的CreateDirectory方法創(chuàng)建該目錄
                dircre.CreateDirectory(dir)
                ‘彈出對(duì)話框，提示創(chuàng)建成功！
                Response.Write("<script> alert(‘Testfolder目錄已經(jīng)成功創(chuàng)建！‘);</script>")
            Else
                Response.Write("<script> alert(‘Testfolder目錄已經(jīng)存在！‘);</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
        ‘聲明文件目錄的路徑，改路徑為物理絕對(duì)路徑
        Dim dir As String = Server.MapPath(".") + "\Testfolder\"
        Try
            ‘判斷該文件目錄是否存在
            If dircre.Exists(dir) Then
                ‘利用Directory類的CreateDirectory方法刪除該目錄
                ‘ Directory類的Delete方法只能刪除空目錄，當(dāng)該目錄內(nèi)有文件時(shí)，刪除就會(huì)出錯(cuò)！
                dircre.Delete(dir)
                ‘ dircre.CreateDirectory(dir)
                ‘彈出對(duì)話框，提示創(chuàng)建成功！
                Response.Write("<script> alert(‘Testfolder目錄已經(jī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
End Class
‘-------code end-----