Imports System
Imports System.IO
Public Class Form1
    Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
        'Presuppone che c:/test esista e che i due percorsi siano sulla stessa unita'
        Dim VecchioNome As String = "c:\test"
        Dim NuovoNome As String = "c:\newtest"
        Dim MsgErr As String = Nothing
        Try
            ' se la directory destinazione esiste gia' non posso rinominare
            If Directory.Exists(NuovoNome) = True Then
                MsgErr = "Il nuovo nome scelto per la directory di destinazione esiste gia'"
                MsgErr += Environment.NewLine
                MsgErr += "impossibile rinominare la Directory"
                MessageBox.Show(MsgErr)
                Exit Sub
            Else
                'rinomina la directory
                Directory.Move(VecchioNome, NuovoNome)
                MessageBox.Show("La directory e' stata rinominata")
                'Ripristino lo stato precedente
                '(la riga seguente e' da togliere nell'utilizzo della routine)
                Directory.Move(NuovoNome, VecchioNome)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
        End Try
    End Sub
End Class