COPIAR ARQUIVOS COM BARRA PROGRESSIVA

LOADING 09/04/2013 21:04:46
#421713
Opa, venho aque pedir um pouco de experiencia com que sabe mas, Tenho como objetivo Fazer um programinha simples de inicio para mim tentarei explicar na melhor formar pois so novato no vb.net e venho na umidade pegar conhecimendo:

Bom o que ate agora e conseguir fazer:

End Class
Citação:

Imports System.IO

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.FileSystem.CopyDirectory([Ô]C:\Test\[Ô], [Ô]C:\copiararquivos[Ô], True)
End Sub
End Class



Bem simpla msm, oque eu gostaria de Todo o os arquivos do Diretorio [Ô]Test[Ô] ir para O diretorio [Ô]Copiararquivos[Ô]
Quando executo o codigo acima ele copia, quando executa de novo ele da erro. Acho eu pq o arquivo ja foi copiador na execuçao anterior.

Sendo que como faria para por uma msgbox para convirvar se o arquvo ja esta no diretorio, e tabem por uma ProgressBar so pra ficar legal lanbradno que qual quer feito para um iniciante e muito gratificante

Eu estou usando a versao 2012 Do Vb


*********SubPergunta

Depois de ver vairos tutoriais em video vejo so o .exe dos desenvolvedores, gostaria de saber quando um aplicativo nosso ira nessecitar de usar uma dll e etc. obrigada
F001E 10/04/2013 00:23:58
#421719
Desse jeito nao tem como usar um ProgressBar pois copia todo o conteudo do C:test para C:copiararquivos....
O ideal e voce contas todas as linhas do arquivo test para jogar no Max no ProgressBar..assim

Private Sub DeterminaValorMaxProBar(ByVal Arquivo As String)
Try
Dim ContaTotal As Long
ContaTotal = 0
Caminho = My.Application.Info.DirectoryPath.ToString & Arquivo
Bar.Properties.Maximum = 0
Bar.Increment(0)
If IO.File.Exists(Caminho) Then
FluxoTexto = New IO.StreamReader(Caminho, System.Text.Encoding.Default)
Do
LinhaTexto = FluxoTexto.ReadLine
If Mid(LinhaTexto, 1, 1) <> [Ô][Ô] Then
ContaTotal = ContaTotal + 1
End If
System.Windows.Forms.Application.DoEvents()
Loop Until LinhaTexto Is Nothing
Bar.Properties.Maximum = ContaTotal
End If
Catch ex As Exception
TratarErro([Ô]frmImportacaoPlanoContas[Ô], [Ô]DeterminaValorMaxProBar[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub

Foi isso voce le o arquivo test para copiar no arquivo C:copiararquivo linha a linha...assim...

Private Sub ImportacaoPlanoDeContas(ByVal Arquivo As String)
Try
Dim GravaTexto, GravaTexto1, GravaTexto2 As IO.StreamWriter
Dim oEscrever As System.IO.StreamWriter
Dim Sequencia As Long
Dim ID As Integer
Dim ContaPai As String = [Ô]0[Ô]
Dim Conta As String = [Ô][Ô]
Caminho = My.Application.Info.DirectoryPath.ToString & Arquivo
If IO.File.Exists(Caminho) Then
FluxoTexto = New IO.StreamReader(Caminho, System.Text.Encoding.Default)
Bar.Visible = True
ID = 0
Do
LinhaTexto = FluxoTexto.ReadLine
If Mid(LinhaTexto, 1, 1) <> [Ô][Ô] Then
ID = ID + 1

GravaTexto.WriteLine(LinhaTexto)

Bar.Increment(1)
System.Windows.Forms.Application.DoEvents()
End If
Loop Until LinhaTexto Is Nothing
Bar.Visible = False
XtraMessageBox.Show([Ô]Plano de Contas Importado com Sucesso ![Ô], Titulomsg, MessageBoxButtons.OK)
FluxoTexto.Close()
Else
XtraMessageBox.Show([Ô]Arquivo não encontrado desse Plano de Contas ![Ô], Titulomsg, MessageBoxButtons.OK)
End If
Catch ex As Exception
TratarErro([Ô]frmImportacaoPlanoContas[Ô], [Ô]ImportacaoPlanoDeContas[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub

+ ou - isso....pesquisa na net...tem varios exemplos....
ALEVALE 10/04/2013 08:36:13
#421724
Olha esse exemplo, é bem legal e já é feito com threads.

http://www.codeproject.com/Articles/16174/Multithreading-Backup-Utility
LOADING 10/04/2013 20:09:45
#421774
Cara Voces sao Fera Vo da uma olhada aque. Muito obrigada
Faça seu login para responder
Voltar