File Copy One Folder To Another in VB

To Copy File  from One Folder To Another use the following code:

 Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourcepath As String = "E:\Pdf_1525\Pdf\"
        Dim DestPath As String = "D:\Pdf_1525_Copy\"
        CopyDirectory(sourcepath, DestPath)
    End Sub

    Private Shared Sub CopyDirectory(ByVal sourcePath As String, ByVal destPath As String)
        If Not Directory.Exists(destPath) Then
            Directory.CreateDirectory(destPath)
        End If

        For Each file__1 As String In Directory.GetFiles(Path.GetDirectoryName(sourcePath))
            Dim dest As String = Path.Combine(destPath, Path.GetFileName(file__1))
            File.Copy(file__1, dest)
        Next

        For Each folder As String In Directory.GetDirectories(Path.GetDirectoryName(sourcePath))
            Dim dest As String = Path.Combine(destPath, Path.GetFileName(folder))
            CopyDirectory(folder, dest)
        Next
    End Sub