SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: leandrog en Viernes 24 de Marzo de 2006, 04:11

Título: Backup
Publicado por: leandrog en Viernes 24 de Marzo de 2006, 04:11
Que tal amigos, es mi primer mjs en el foro.
tengo un problema necesito poder hacer el backup de una BD en Dbase (osea el archivo  .dbf y el .dbt) solo copiandolos a otra carpeta, lo intente con la funcion filecopy pero no lo consigo, estoy mas que seguro que este codigo esta super errado. gracias y disculpen  :P

Código: Text
  1. Dim source1, source2 As String
  2. Dim dest1, dest2 As String
  3.  
  4. source1 = Dir("\" & "data.dbf")
  5. source2 = Dir("\" & "data.dbt")
  6. dest1 = Dir("C:\Documents and Settings\lg\Escritorio\")
  7. dest2 = Dir("C:\Documents and Settings\lg\Escritorio\")
  8.  
  9. FileCopy source1, dest1
  10. FileCopy source2, dest2
  11.  
Título: Re: Backup
Publicado por: Sagutxo en Viernes 24 de Marzo de 2006, 12:20
Salu2. El comando es el apropiado lo que hace pensar que alguno de los 2 path es incorrecto

FileCopy PathName, NewPathName

Ejecuta el código hasta ese linea y mira cuales son las direcciones.

Yo hago las copias en un zip y te voy a dejar el cçodigo por si quieres usarlo. es un .bas.

El comando es:

ComprimeBase PathDeBase, PathYNombre

PathDeBase = AppPath+NombreBase    'normalmente
Path.Y.Nombre = path y nombrede  archivo zip, sin extensión

Aquí te dejo el .bas y las 2 .dll necesarias

la 2 .dll te hará falta meterlas en el system32 de todas tus aplicaciones. Tengo entendido que son gratuitas.

Espero no liarte mucho :), este código lo cogí de alguna pag y lo modifiqué a mi gusto, así que toketealo un poco y veras que va de lujo.

 :comp:  :smartass:  :comp:
Título: Re: Backup
Publicado por: leandrog en Viernes 24 de Marzo de 2006, 15:20
Gracias Sagutxo por tu ayuda, segun lo que vi funciona muy bien tu codigo, sin embargo me muestra un erorr con PulsaS, tengo que revisarlo mas...

Pude resolver el problema y efectivamente estaba en los Path de los archivos :lol:

De todas maneras muchas gracias por tu ayuda, intentare, hacerlo de esa forma que para es mucho mejor. :P
Título: Re: Backup
Publicado por: Sagutxo en Viernes 24 de Marzo de 2006, 21:41
Salu2. jejeje si mil perdones, es una minifunción mia que controla los errores por un número, pero finalmente acaba siendo un msgbox con la opción de solo aceptar así que sustituyelo y te irá perfecto, lo siento :(
 :whistling:
 :comp:  :smartass:  :comp:
Título: Re: Backup
Publicado por: leandrog en Sábado 25 de Marzo de 2006, 03:33
Ok, muchas gracias amigo, lo hare y te aviso a ver que tal quedo  ;) . Saludos
Título: Re: Backup
Publicado por: pmike en Sábado 25 de Marzo de 2006, 13:54
Hola

He probado el archivo.bas para realizar copias de bd y la verdad es q funcionan muy bien tanto la compresion de la bd como descompresion de la misma

Todo ok

Gracias