Copy Directory

''' <summary>
    ''' Copies folder
    ''' </summary>
    ''' <param name="_srcPath">Source folder to copy</param>
    ''' <param name="_destPath">Target folder</param>
    ''' <remarks></remarks>
    Public Shared Sub CopyDir(ByVal _srcPath As String, ByVal _destPath As String)
        If Not Directory.Exists(_destPath) Then
            Directory.CreateDirectory(_destPath)
        End If
        Dim files() As String
        files = Directory.GetFileSystemEntries(_srcPath)
        For Each element As String In files
            'Sub directories
            If Directory.Exists(element) Then
                CopyDir(element, Path.Combine(_destPath, Path.GetFileName(element)))
            Else 'Files
                File.Copy(element, Path.Combine(_destPath, Path.GetFileName(element)), True)
            End If
        Next
    End Sub