Chose incroyable dans le .Net Framework 4.0 (et inférieurs), il n’existe aucune fonction native pour copier un répertoire en VB.Net ! On peut déplacer des répertoires, en créer (avec arborescence complète !) ou en supprimer et renommer, mais pas en copier avec leur contenu.

Voici un bout de code palliant à ce manque surprenant :

Imports System.IO

...

    ''' <summary>
    ''' Copie un répertoire (et tout son contenu) vers un nouvel emplacement
    ''' </summary>
    ''' <param name="sSourcePath">Chemin du répertoire source à copier</param>
    ''' <param name="sDestinationPath">Chemin du répertoire de destination</param>
    ''' <returns>VRAI si la copie se déroule bien, FAUX sinon</returns>
    ''' <remarks></remarks>
    Public Function CopyDir(ByVal sSourcePath As String, ByVal sDestinationPath As String) As Boolean

        'Appelle la version utilisant les objets DirectoryInfo
        Return CopyDir(New DirectoryInfo(sSourcePath), New DirectoryInfo(sDestinationPath))

    End Function

    ''' <summary>
    ''' Copie un répertoire (et tout son contenu) vers un nouvel emplacement
    ''' </summary>
    ''' <param name="oSource">Objet DirectoryInfo représentant le répertoire source à copier</param>
    ''' <param name="oDestination">Objet DirectoryInfo représentant le répertoire de destination</param>
    ''' <returns>VRAI si la copie se déroule bien, FAUX sinon</returns>
    ''' <remarks></remarks>
    Private Function CopyDir(ByVal oSource As DirectoryInfo, ByVal oDestination As DirectoryInfo) As Boolean

        Dim bResult As Boolean = True   'Retour de la copie (VRAI = succès)

        Try
            oDestination.Create()       'Création du répertoire de destination (le cas échéant)

            'Copie de tous ses fichiers
            For Each oFichier As FileInfo In oSource.GetFiles()
                oFichier.CopyTo(Path.Combine(oDestination.FullName, oFichier.Name))
            Next

            'Copie (par récursivité) de tous ses sous-répertoires
            For Each oSousRepertoire As DirectoryInfo In oSource.GetDirectories()
                CopyDir(oSousRepertoire, oDestination.CreateSubdirectory(oSousRepertoire.Name))
            Next
        Catch ex As Exception
            'Si une erreur se produit, on indique l'erreur - à adapter selon vos besoins, notamment pour tracer les sources d'erreur !
            bResult = False
        End Try

        Return bResult

    End Function

En espérant que cela puisse servir à quelques uns d’entre vous.