VB .NET - Copiar cada arquivo para seu diretórios

Imports System.IO

Public Class Form2

    Private Sub Copiar()

        Dim caminhoOrigemArquivos As String

        Dim arrayOrigemArquivos As String()

        Dim caminhoDestino As String

        If Me.TextBox1.TextLength = 0 Then

            MsgBox("Informe a pasta de origem dos arquivos para que possa " & _

                   "ser realizado so procedimento de movimentação dos arqui.", MsgBoxStyle.Exclamation)

            Exit Sub

        End If

        caminhoOrigemArquivos = Me.TextBox1.Text

        arrayOrigemArquivos = Directory.GetFiles(caminhoOrigemArquivos)

        Try

            For i As Integer = 0 To arrayOrigemArquivos.Length - 1

                For Each info In arrayOrigemArquivos

                    If info.Contains("Maria Joana") Then

                        caminhoDestino = "G:\Pasta com Documentos Importantes\Maria Joana P.01_2012\"

                        File.Copy(arrayOrigemArquivos(i).ToString(), arrayOrigemArquivos(i).ToString().Replace(caminhoOrigemArquivos, caminhoDestino))

                    End If

                    If info.Contains("João Silva") Then

                        caminhoDestino = "G:\Pasta com Documentos Importantes\João Silva P.01_2012"

                        File.Copy(arrayOrigemArquivos(i).ToString(), arrayOrigemArquivos(i).ToString().Replace(caminhoOrigemArquivos, caminhoDestino))

                    End If

                    If info.Contains("Leandro Macedo") Then

                        caminhoDestino = "G:\Pasta com Documentos Importantes\Leandro Macedo P.01_2012"

                        File.Copy(arrayOrigemArquivos(i).ToString(), arrayOrigemArquivos(i).ToString().Replace(caminhoOrigemArquivos, caminhoDestino))

                    End If

                    If info.Contains("Leandro Macedo") Then

                        caminhoDestino = "G:\Pasta com Documentos Importantes\Maria Aparecida Fernandes P.01_2012"

                        File.Copy(arrayOrigemArquivos(i).ToString(), arrayOrigemArquivos(i).ToString().Replace(caminhoOrigemArquivos, caminhoDestino))

                    End If

                    i = i + 1

                Next

                MsgBox("Todos os arquivos foram copiados com sucesso.")

            Next

        Catch ex As Exception

            MsgBox("Já existem o arquivos com esse nome na pasta de destino.")

        End Try

    End Sub

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

        Copiar()

    End Sub

    Dim DiretorioOrigem As String

    Dim DiretorioDestino As String

    Private Sub PListaArquivos()

        Me.ListBox1.Items.Clear()

        Dim Diretorio As New IO.DirectoryInfo(Me.TextBox1.Text)

        Dim Tipoarquivo As IO.FileInfo() = Diretorio.GetFiles("*.pdf")

        For Each info In Tipoarquivo

            Me.ListBox1.Items.Add(info.Name)         

        Next

        Me.lblContador.Text = Me.ListBox1.Items.Count.ToString & " arquivos encontrados."

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        If Me.FolderBrowserDialog1.ShowDialog = DialogResult.Cancel Then

            Return

        Else

            Me.TextBox1.Text = Me.FolderBrowserDialog1.SelectedPath

        End If

        PListaArquivos()

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        For Fade = 1.1 To 0.0 Step -0.1

            Me.Opacity = Fade

            Me.Refresh()

            Threading.Thread.Sleep(50)

        Next

        End

    End Sub

    Private Sub Form2_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        For Fade = 1.1 To 0.0 Step -0.1

            Me.Opacity = Fade

            Me.Refresh()

            Threading.Thread.Sleep(50)

        Next

        End

    End Sub

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim Fade As Double

        For Fade = 0.0 To 1.1 Step 0.1

            Me.Opacity = Fade

            Me.Refresh()

            Threading.Thread.Sleep(50)

        Next

    End Sub

End Class

Pegue o projeto neste link: http://www.mediafire.com/?yj8pog7vbkcbkgz

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