La Web del Programador: Comunidad de Programadores
 
    Pregunta:  15058 - BARRA DE PROGRESO EN VFP
Autor:  efraim miguel ruiz karduss
colegas. mi inquietud es la siguiente. yo programo en vfp 6, no soy un experto, pero tampoco un principiante, he hecho ya varias aplicaciones.

pero en este momento necesito implementar un modulo de copias de respaldo, entonces deseo saber como hacer para usar una barra de progreso (progress barr) que aumente y me muestre el porcentaje de copiado, sincronizado con los archivos que esta tomando en el momento.

2. otra inquietud es que como puedo tomar cada uno de los archivos que esten en cualquier directorio para poder hacer la copia de respaldo

muchas gracias

  Respuesta:  Richard Silva M.
Miguel:

Puedes instanciar la clase _therm que viene con VFP 6 para implementar el termómetro, y usar la función Adir() para determinar los archivos presentes en una carpeta. Por ejemplo, si la variable MiDir apunta a la carpeta que contiene los archivos:

Adir(aArchivos,(MiDir)+'*.*) &&Crea la matriz aArchivos

If alen(aArchivos) > 0
&& Instanciamos la clase _therm, objeto oTermo
for lnArchivos = 1 to alen(aArchivos,1)
... &&copiamos del origen al destino
... &&Actualizamos el objeto oTermo
endfor
... Mostramos el objeto oTermo completo y lo liberamos.
Else
wait window 'La carpeta está vacía!'
EndIf
Espero sea de utilidad, coméntanos como salió todo, si tienes dudas pregunta por acá mismo.

Un cordial saludo desde El Tigre, Venezuela...