CreateDirectory In Visual baisc

CreateDirectory In Visual baisc
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not TextBox1.Text = String.Empty Then
            Dim dirinf As DirectoryInfo
            dirinf = New DirectoryInfo(TextBox1.Text)

            Try
                dirinf.Create()
            Catch ex As IOException
                MsgBox("tak dapat create directory" & vbCrLf & ex.Message)
            Catch ex1 As UnauthorizedAccessException
                MsgBox(" tak boleh create directory" & TextBox1.Text)
            End Try

            'cara kedua
            'Directory.CreateDirectory(TextBox1.Text)

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Not TextBox1.Text = String.Empty Then
            Dim dirinf As DirectoryInfo
            dirinf = New DirectoryInfo(TextBox1.Text)
            Try
                dirinf.Delete()
            Catch ex As IOException
                MsgBox("tek boleh delete")
            End Try
            'cara kedua
            'Directory.Delete(TextBox1.Text)

        End If
    End Sub
End Class