VB .NET - Copiar Arquivos Entre Diretórios

Adicionem em seu projeto quando estiverem fazendo os seguintes componentes:

*FolderBrowserDialog1;
*OpenFileDialog1.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciarCopia.Click

        If Me.txtarquivoOrigem.Text = "" Then

            MsgBox("Selecione um arquivo para que seja feita a cópia.", MsgBoxStyle.Exclamation)

        Else

            If Me.txtLcoalDestino.Text = "" Then

                MsgBox("Selecione um local de destino para que seja feita a cópia.", MsgBoxStyle.Exclamation)

            Else

                My.Computer.FileSystem.CopyFile(Me.txtarquivoOrigem.Text, Me.txtLcoalDestino.Text, True)

                MsgBox("Arquivo copiado com sucesso.", MsgBoxStyle.Exclamation)

            End If

        End If

    End Sub

    Private Sub btnProcurar_Click(sender As System.Object, e As System.EventArgs) Handles btnProcurar.Click

        Me.OpenFileDialog1.Filter = "All files (*.*)|*.*"

        Me.OpenFileDialog1.RestoreDirectory = True

        If Me.OpenFileDialog1.ShowDialog = DialogResult.Cancel Then

            Return

        Else

            Me.txtarquivoOrigem.Text = Me.OpenFileDialog1.FileName

        End If

    End Sub

    Private Sub btnDestino_Click(sender As System.Object, e As System.EventArgs) Handles btnDestino.Click

        If Me.FolderBrowserDialog1.ShowDialog = DialogResult.Cancel Then

            Return

        Else

            Me.txtLcoalDestino.Text = Me.FolderBrowserDialog1.SelectedPath + "\" + CStr(OpenFileDialog1.SafeFileName)

        End If

    End Sub

    Private Sub btnEncerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnEncerrar.Click

        End

    End Sub

End Class

 Espero ter ajudado! Até a próxima, abraços...