Imports System

Imports System.IO

Module Module1

  Sub Main()

    CreateDirectory()

  End Sub

  Sub CreateDirectory()

    Dim Path As String

    Path = "D:\MyworkFolder"

    Directory.CreateDirectory(Path)

  End Sub

End Module

Imports System

Imports System.IO

Module Module1

  Sub Main()

    CreateDirectory()

  End Sub

  Sub CreateDirectory()

    Dim Path As String

    Path = "D:\MyworkFolder"

    Try

      If Directory.Exists(Path) Then

        Console.Write("This Folder already Exist")

      Else

        Directory.CreateDirectory(Path)

      End If

    Catch ex As Exception

      Console.Write(ex.ToString)

    End Try

  End Sub

Imports System

Imports System.IO

Module Module1

  Sub Main()

    CreateDirectory()

  End Sub

  Sub CreateDirectory()

    Dim PathToMove As String

    PathToMove = "D:\MyworkFolder"

    Dim Destination As String

    Destination = "D:\Bilal\MyworkFolder"

    Try

      If Directory.Exists(PathToMove) Then

        Directory.Move(PathToMove, Destination)

      Else

        Console.Write("There is No such Directory to move")

      End If

    Catch ex As Exception

      Console.Write(ex.ToString)

    End Try

  End Sub

End Module

Imports System

Imports System.IO

Module Module1

  Sub Main()

    CreateDirectory()

  End Sub

  Sub CreateDirectory()

    Dim Path As String

    Path = "D:\MyworkFolder"

    Try

      If Directory.Exists(Path) Then

        Directory.Delete(Path)

      Else

        Console.Write("There is No such Directory to Delete")

      End If

    Catch ex As Exception

      Console.Write(ex.ToString)

    End Try

  End Sub