Programación General > Visual Basic 6.0 e inferiores

 Backup

(1/2) > >>

leandrog:
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 ---Dim source1, source2 As StringDim dest1, dest2 As String source1 = Dir("\" & "data.dbf")source2 = Dir("\" & "data.dbt")dest1 = Dir("C:\Documents and Settings\lg\Escritorio\")dest2 = Dir("C:\Documents and Settings\lg\Escritorio\") FileCopy source1, dest1FileCopy source2, dest2 

Sagutxo:
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:

leandrog:
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

Sagutxo:
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:

leandrog:
Ok, muchas gracias amigo, lo hare y te aviso a ver que tal quedo  ;) . Saludos

Navegación

[0] Índice de Mensajes

[#] Página Siguiente