COPIAR ARQUIVO COM BARRA DE PROGRESSO

  Public Class frmCopy
    Dim sPath As String = [Ô]C:\Pasta_Origem\[Ô]
    Dim lPath As String = [Ô]C:\Pasta_Destino\[Ô]


    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
               cpyFiles()
    End Sub

    Private Delegate Function CopyProgressRoutine(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32

    Private Declare Auto Function CopyFileEx Lib [Ô]kernel32.dll[Ô] (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, ByVal lpData As Int32, ByVal lpBool As Int32, ByVal dwCopyFlags As Int32) As Int32

    Private Function CopyProgress(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
        pgrFileCopy.Value = Convert.ToInt32(totalBytesTransferred / totalFileSize * 100)
    End Function

    Private Sub cpyFiles()
        Dim cpr As New CopyProgressRoutine(AddressOf CopyProgress)
        Dim allfiles() As String = IO.Directory.GetFiles(sPath)
        Dim filesCopyed As Integer = 0
        pgrTotalCopy.Maximum = allfiles.Length - 1
        For Each file As String In allfiles
            Dim fileName() As String = file.Split([Ô]\[Ô])
            lblAcopiar.Text = [Ô]A copiar: [Ô] & fileName(fileName.Length - 1)
            CopyFileEx(file, lPath & fileName(fileName.Length - 1), cpr, 0, 0, 0)
            filesCopyed += 1
            pgrTotalCopy.Value = filesCopyed
        Next
    End Sub
End Class 

   Dim pb As New ProgressBar
        [ô]copia todos os arquivos do diretório
        Dim DirectorioFont As String = [Ô]Pasta a copiar <C:\pasta>[Ô]
        Dim DirectorioDestino As String = [Ô]Pasta de destino <C:
ovapasta>[Ô]
        Dim ListaDeFiles() = My.Computer.FileSystem.GetFiles(DirectorioFont, _
                                FileIO.SearchOption.SearchAllSubDirectories, [Ô]*.*[Ô]).ToArray

        For i = 0 To ListaDeFiles.Length - 1
            Dim file = ListaDeFiles(i)
            [ô]Aqui poes o codigo todo de copiar, visto que cada file será o ficheiros,
            [ô]Da pasta raiz e das subdirectorias

            [ô]No fim poes a progressbar a trabalhar
            pb.Value = (i / ListaDeFiles.Length - 1) * 100
        Next