Imports System
Imports System.IO
Public Class Test
Public Shared Sub Main()
Dim path As String = "c:\MyDir"
Dim target As String = "c:\TestDir"
Try
Directory.Move(path, target)
Catch e As Exception
Console.WriteLine("The process failed: {0}", e.ToString())
End Try
End Sub
End Class