Create Folder In VB.net

 Private Sub Ok_Button_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok_Button.Click
                ' Check if folder exists, if not: create it
        If Not Directory.Exists("D:\" & "SandeepKumarYadav") Then
            Directory.CreateDirectory("D:\" &"SandeepKumarYadav")
            ' Folder created message
            MessageBox.Show("Folder created!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            ' Folder already exists
            MessageBox.Show("Folder already exists!", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End If
    End Sub