Sub Page_Load(sender As Object, e As EventArgs)
Dim DirInfo As New DirectoryInfo("D:\New Folder\test")
'*** 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
Sub Page_Load(sender As Object, e As EventArgs)
Dim DirInfo As New DirectoryInfo("D:\New Folder\test")
'*** 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