MOSTRANDO PROGRESSO

IRENKO 04/09/2007 10:43:41
#233994
No codigo abaixo existe maneira de colocar uma barra de progresso ou uma mensagem piscante tipo "Aguarde....Atualizando tabelas"

Private Sub Copiar()

Dim fso As New FileSystemObject
On Error GoTo trataerro

fso.CopyFile "\\Sv\Dep\LTD.mdb", "c:\Pl\1\LTD.mdb", True

MsgBox "Arquivos => COPIADOS", vbInformation

Exit Sub

trataerro:
If Err.Number = 53 Then
  MsgBox "Arquivo não encontrado !", vbCritical
Else
  MsgBox Err.Description & " - " & Err.Number, vbCritical
End If
End Sub
CLAUDIO1404 04/09/2007 10:55:12
#233997
Olha, é só uma idéia que eu não sei se funcionaria, mas já tentou fazer com timer?
No timer pode fazer até uma ProgressBar que quando chegar ao 100% volta pra 0% pois não sabemos quanto tempo vai demorar.
Só que eu não sei se o fso.CopyFile vai liberar o timer durante a cópia. Também pode tentar colocar um DoEvents no timer pra ver se funciona.
ANGELO 04/09/2007 11:08:46
#234001 Resposta escolhida
Cara.. num tem como com esse método.
Mas eu to anexando um exemplo que resolve seu problema e é bem melhor do que com o fso

Qquer dúvida posta aqui
IRENKO 04/09/2007 11:24:57
#234004
Legal Angelo! Mas o form so aparece depois de completado a cópia.
ANGELO 04/09/2007 11:29:40
#234005
faz o seguinte..

Alterei pra vc...

Coloquei um botão..

Utiliza um arquivo grande pra vc ver a porcentagem.. se o arquivo for pequeno vai muito rápido

Falow
IRENKO 04/09/2007 11:35:19
#234006
Eu ja tinha feito isso, o problema é que tem de ser no load do form, ou seja, a transferencia tem que ser feita automaticamente, sem a interferencia do usuário. Valeu a sua dica, se tiver outra sugestão, fico grato.
USUARIO.EXCLUIDOS 04/09/2007 11:41:44
#234007
IRENKO,

Verifica este exemplo se resolve.
Valeu!
ANGELO 04/09/2007 13:00:50
#234026
Cara.. eu alterei o projeto que o Tecla enviou...
Quando vc busca um arquivo da rede ele dava pau.. com a API que eu uso funciona de boa
Ficou bem legal..
Saca só.. ta em anexo
Tópico encerrado , respostas não são mais permitidas
Voltar