
25/03/2009, 08:52
|
| | Fecha de Ingreso: enero-2009
Mensajes: 106
Antigüedad: 16 años, 2 meses Puntos: 0 | |
Copia de archivos y Progressbar Hola...
Tengo dos consultas.
Estoy copiando archivos de un pc de la red a otro, utilizo este codigo para realizar el proceso de copiado de un archivo:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim c As Object
c = CreateObject("Scripting.FileSystemObject")
c.CopyFolder("ORIGEN", "DESTINO")
c = Nothing
Timer1.Enabled = True 'Ejecuto el proceso
End Sub
¿Como lo podria hacer para copiar tres archivos que estan en distintas rutas y pegarlos igual en distintas rutas?
La otra consulta.
Tengo una barra de progreso que mustra el proceso de copiado y utilizo este codigo:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim t As String
If barra.Value < 100 Then
barra.Value = barra.Value + 1
ElseIf barra.Value = 100 Then
Timer1.Enabled = False
t = MsgBox("Archivo Copiado", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "")
End
End If
End Sub
La barra avanza pero no con el proceso de copiado.
¿Como podria hacer que la barra avance junto con el proceso de copiado? |