[VB.NET] Copia di una cartella

    Public Function CopyDirectory(ByVal Src As String, ByVal Dest As String, Optional ByVal bQuiet As Boolean = True) As Boolean

        'Togliere i commenti se le seguenti eccezzioni non sono gestite dal metodo chiamante
        'If Not Directory.Exists(Src) Then
        'Throw New DirectoryNotFoundException("The directory " & Src & " does not exists")
        'End If
        'If Directory.Exists(Dest) AndAlso Not bQuiet Then
        'If MessageBox.Show("Directory " & Dest & " already exists." & vbCrLf & "If you continue, any files with the same name will be overwritten", "Continue?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Cancel Then Exit Function
        'End If

        If Dest.Substring(Dest.Length - 1, 1) <> Path.DirectorySeparatorChar Then
            Dest += Path.DirectorySeparatorChar
        End If
        If Src.Substring(Src.Length - 1, 1) <> Path.DirectorySeparatorChar Then
            Src += Path.DirectorySeparatorChar
        End If

        If Not Directory.Exists(Dest) Then Directory.CreateDirectory(Dest)

        Dim Files As String()
        Files = Directory.GetFileSystemEntries(Src)
        Dim element As String
        For Each element In Files
            Application.DoEvents()
            If Directory.Exists(element) Then
                'Chimata ricorsiva
                CopyDirectory(element, Dest & Path.GetFileName(element))
            Else
                'element è un File..
                File.Copy(element, Dest & Path.GetFileName(element), True)
            End If
        Next
        Application.DoEvents()
        Return True
    End Function