[vb.net] Rinominare una directory.

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
 

 

Dettagli

Chicosoft di F.Bianchi
P.Iva: 03634480168

Website: www.chicosoft.it

Disclaimer

I codici e le soluzioni proposti su questo sito sono inseriti a mero scopo dimostrativo e la Chicosoft declina ogni responsabilità in merito al loro uso.

 

 

Questo sito utilizza i cookie per migliorare servizi ed esperienza dei lettori. Se decidi di continuare la navigazione consideriamo che accetti il loro uso.