Copiar pastas e subpastas com ProgressBar

Question

Olá pessoal! Como faço para copiar uma pasta e suas subpastas e arquivos de um local para outro, preciso usar um ProgressBar também. Obrigado!

Answer 1

Olá,

Veja se isso ajuda:

VB.NET - Copiando arquivos entre diretórios

ProgressBar ao copiar ficheiros

Copiando arquivos em VB.NET

Acompanhar o andamento da cópia de arquivos (Progressbar)

---

Herbert Lausmann

Answer 2

Dê uma olhada no fórum abaixo:

http://www.dreamincode.net/forums/topic/72674-copying-directory-and-progressbars/

Answer 3

O código não funcionou, deu vários erros.

Answer 4

Olá! O não consegui nada, em nenhum dos links. Eu tenho este código que baixa arquivos da internet com progressbar, se trocar a url por um caminho de diretório funciona perfeitamente, porém só funciona com arquivos, não tem como mudar para copiar pastas?

Imports System.Net
Public Class Form1
    WithEvents webclient1 As New WebClient

    Private Sub webclient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles webclient1.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim salvarDLG1 As SaveFileDialog = New SaveFileDialog
        salvarDLG1.Title = "Salvar Como"
        salvarDLG1.Filter = "Arquivo do WinRAR|*.rar"
        salvarDLG1.FileName = ""
        DialogResult = salvarDLG1.ShowDialog
        If DialogResult = DialogResult.OK Then
            TextBox1.Text = salvarDLG1.FileName
            webclient1.DownloadFileAsync(New Uri("http://howar.url.ph/Jogo_Teste.rar"), TextBox1.Text)
        End If        
    End Sub
End Class