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