<%@ Import Namespace="System.IO"%>
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim DirInfo As New DirectoryInfo(Server.MapPath("MyFolder"))
'*** Create Folder ***'
If Not DirInfo.Exists Then
DirInfo.Create()
Me.lblText1.Text = "Folder Created."
End If
'*** Delete Folder ***'
If DirInfo.Exists Then
DirInfo.Delete()
Me.lblText2.Text = "Folder Deleted."
End If
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Create/Delete Directory</title>
</head>
<body>
<form runat="server">
<asp:Label id="lblText1" runat="server"></asp:Label><br />
<asp:Label id="lblText2" runat="server"></asp:Label><br />
</form>
</body>
</html>
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.FileSystem.CreateDirectory _
("C:\Documents and Settings\Administrator\Desktop\NewFolder")
End Sub
End Class