BarraProgress Access, no corre utilizando la in


   Tengo este código en un formulario donde le he colocado dos cuadros de texto independientes uno que he llamado contador y otro barra (ancho 0 con color), y he puesto un botón para iniciar la copia de archivos. Quiero poner una barra para ver el progreso de la copia de una carpeta a otra carpeta (a la carpeta copiada se le añade fecha y hora de copiado), pero no sé porqué la instrucción fso. CopyFolder BLOQUEA EL CÓDIGO DE PROGRESO DE LA BARRA.Private Sub Form_Timer()
contador = contador + 1
Barra.Width = 0.201 * 567 * contador
End Sub
Private Sub Iniciar_Click()
Dim CarpetaOrigen As Variant, CarpetaDestino As Variant
'Para COPIAR una carpeta en cualquier otra Ubicación
'Indicamos los nombres y ubicaciones de la Carpeta a COPIAR...
CarpetaOrigen = "C:\BaseDatos"
CarpetaDestino = "C:\RespaldoBaseDatos\BaseDatosRespaldos" & "_" & Format(Now(), "dd_mm_yyyy_hh_mm")
'OJO!!!: no podremos crear una carpeta ya existente!!!
'con este objeto proporcionamos acceso al sistema de archivos de nuestro equipo...
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Me.TimerInterval = 100
contador = 1
'Momento para copiar y pegar la ubicación de la Carpeta.
'Empleamos el método CopyFolder para copiar de un lugar a otro...
FSO.CopyFolder Source:=CarpetaOrigen, Destination:=CarpetaDestino
'finaliza el progreso de la barra de conteo
TimerInterval = 0
'mensaje de confirmación
MsgBox "Hemos copiado la Carpeta " & CarpetaOrigen & " y pegado en la nueva ubicación " & CarpetaDestino, , "RESPALDO CONCLUIDO"
    DoCmd.Close
End Sub

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Josnue Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 14/Junio/2020 Localización: MEXICO Estado: Sin conexión Puntos: 3	Tema: BarraProgress Access, no corre utilizando la in Enviado: 14/Junio/2020 a las 19:57
	Tengo este código en un formulario donde le he colocado dos cuadros de texto independientes uno que he llamado contador y otro barra (ancho 0 con color), y he puesto un botón para iniciar la copia de archivos. Quiero poner una barra para ver el progreso de la copia de una carpeta a otra carpeta (a la carpeta copiada se le añade fecha y hora de copiado), pero no sé porqué la instrucción fso. CopyFolder BLOQUEA EL CÓDIGO DE PROGRESO DE LA BARRA. Private Sub Form_Timer() contador = contador + 1 Barra.Width = 0.201 * 567 * contador End Sub Private Sub Iniciar_Click() Dim CarpetaOrigen As Variant, CarpetaDestino As Variant 'Para COPIAR una carpeta en cualquier otra Ubicación 'Indicamos los nombres y ubicaciones de la Carpeta a COPIAR... CarpetaOrigen = "C:\BaseDatos" CarpetaDestino = "C:\RespaldoBaseDatos\BaseDatosRespaldos" & "_" & Format(Now(), "dd_mm_yyyy_hh_mm") 'OJO!!!: no podremos crear una carpeta ya existente!!! 'con este objeto proporcionamos acceso al sistema de archivos de nuestro equipo... Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Me.TimerInterval = 100 contador = 1 'Momento para copiar y pegar la ubicación de la Carpeta. 'Empleamos el método CopyFolder para copiar de un lugar a otro... FSO.CopyFolder Source:=CarpetaOrigen, Destination:=CarpetaDestino 'finaliza el progreso de la barra de conteo TimerInterval = 0 'mensaje de confirmación MsgBox "Hemos copiado la Carpeta " & CarpetaOrigen & " y pegado en la nueva ubicación " & CarpetaDestino, , "RESPALDO CONCLUIDO" DoCmd.Close End Sub

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: Sin conexión Puntos: 14738	Enviado: 15/Junio/2020 a las 10:06
	Hola Josnue y bienvenid@ al foro, Mientras se ejecuta CopyFolder, en principio se pararía el resto del código por lo que no se ejecutaría el evento Timer En cualquier caso... En realidad lo que haces es simular un progreso porque, cada 0.1 segundos incrementas la anchura de la barra. ¿Que ocurriría si (imaginemos que funcionara) el tiempo se demorara mucho? Es posible que alguien me sorprenda pero, con CopyFolder, dificilmente podrás mostrar una barra de progreso. Si quieres mostrar una barra de progreso, creo que te será bastante más complicado y requerirá algún cambio de técnica. Un saludo
	Xavi, un minyó de Terrassa Mi web

Josnue Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 14/Junio/2020 Localización: MEXICO Estado: Sin conexión Puntos: 3	Enviado: 15/Junio/2020 a las 15:56
	Gracias por tu respuesta Xavi. Creen que si se pusiera el progreso mostrando porcentaje de copiado sería posible, o tampoco se podría porque estamos en las mismas porque el CopyFolder sigue parando el código? Un saludo y Gracias de nuevo.

mounir Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 09/Febrero/2009 Localización: Asturias-España Estado: Sin conexión Puntos: 6479	Enviado: 15/Junio/2020 a las 16:23
	Hola! A ver si te sirve:- Barra progreso CopyFile.
	Un Saludo.