ugenux
12 de Agosto del 2004

Como puedo hacer un ProgressBar cuando estoy copiando carpetas, es decir, esta es la idea.
Tengo un programa que copia carpetas de una ubicación a otra y me gustaría hacerlo un poco más profesional insertando una barra de proceso.
¿Cómo puedo hacerlo? ¿Qué código tengo que utilizar?

semperfimxl
12 de Agosto del 2004

Incluye en tu proyecto, en Componentes, el "Microsoft WIndows Common Controls" ... Alli viene el control ProgressBar ...

Private Sub Form_Load()
' ...
Me.ProgressBar1.Visible = False
Me.ProgressBar1.Scrolling = ccScrollingSmooth
' ...
End Sub

Private Sub Copiar()
Dim nIncremento As Single
Dim nMaxValue As Single


' Definir el valor de nMaxValue...
' Puede ser el total (numero) de archivos a copiar o ...
' el total en bytes de toda la operacion de copiado
' (suma del tamaño de todos los archivos) ...
' Lo anterior depende de los metodos que utilizes
' para copiar/mover archivos ...

' Definir asi mismo el valor de nIncremento basado en
' lo anterior (es decir, como ira creciendo la barra de
' progreso segun vaya avanzando el copiado de archivos)

Me.ProgressBar1.Min = 0
Me.ProgressBar1.Max = nMaxValue
Me.ProgressBar1.Visible = True


Do While True
' Aqui estarías copiando los archivos y por cada
' archivo que copies (o por cada trozo de datos que
' proceses) incrementas el ProgressBar ..

If Me.ProgressBar1.Value + nIncremento <= Me.ProgressBar1.Max Then
Me.ProgressBar1.Value = Me.ProgressBar1.Value + nIncremento
End If

' .....
Loop

End Sub

semperfimxl
12 de Agosto del 2004

Al final del proceso de copiado:

Me.ProgressBar1.Visible = False

ugenux
12 de Agosto del 2004

Gracias por el código pero no se donde y como juntarlo con el mío........
Este es el código de mi programa:

Private Sub submenuextraer_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Respuesta = MsgBox("¿Deseas copiar los Drivers a tu Disco Duro. Ubicación C:DRIVERSTEMP?", 33, "Pregunta")
If Respuesta = 1 Then
fs.Createfolder "C:DRIVERSTEMP"
fs.CopyFolder "..DRIVERS*", "C:DRIVERSTEMP"
End If
End Sub

Puedes hacer algo con esto

juan
12 de Agosto del 2004

mirate la librería Microsoft Sripting Runtime

ugenux
12 de Agosto del 2004

Me hace falta el Código por favor