Prezados colegas, como eu coloco um progressbar para indicar o fim da transferencia do arquivo.
Dim Origem, Destino
Origem = "D:Documents and SettingsAll UsersDesktopDiário da Torre" & Label2
Destino = "
\OperacaoTorre" & Label2
If Dir$(Origem) <> "" Then
FileCopy Origem, Destino
MsgBox (" Aruquivo Transferido com sucesso. "), vbInformation
Else
MsgBox (" Arquivo ''" & Label2 & "'' ainda não foi criado. "), vbCritical
End If
