Respaldar Base de datos

[juanutcm]

Hola tengo una base de datos en acces y lo que quiero es hacer un respaldo de la base de datos desde visual basic 6.0 la conexion la estoy haciendo con el dataenvironment y se que para poder tenerla actualizada debo de cerrar primero la conexion y despues copiar el archivo.... pero hice una prueba con el siguiente codigo y me marco que el control activex no puede crear el objeto no se por que me marco este error espero tengan otra solucion distinta o mejor a la mia .... este es el codigo del que les hable arriba

Private Sub sbmnuRespaldo_Click()
DataEnvironment1.rsCommand1.Close
mnuUtilerias.Enabled = False
directorio1 = App.Path & "\Prueba\db1.mdb"
directorio2 = App.Path & "\Prueba\Respaldo"
Set fs = CreateObject("scripting.fylesystemobject")
fs.copyfile directorio1, directorio2, (True)
MsgBox "el respaldo se hizo correctamente", vbInformation + vbOKOnly, "mensaje sistema"
DataEnvironment1.rsCommand1.Open
mnuUtilerias.Enabled = True
End Sub

espero sus respuestas y de antemano muchas gracias....

[GeoAvila]

en las faq's hay un ejemplo si mal no estoy, y tambien en el foro hay varios post sobre que te pueden ayudar..

nos vemos..

[Hager]

No te compiques la vida, necesitas una copia de respaldo de la base de datos??, copia el archivo automaticamente y guardalo con otro nombre
con el objeto FileSystemObject

[juanutcm]

me podrias explicar mejor esa parte hager??...

[avilware]

...Lo que yo hago es esto, creo que tambien es muy sencillo...

On Error GoTo NOHAGASNADA
Screen.MousePointer = 11
FileCopy "RUTA DEL ARCHIVO", "RUTA DONDE LO DECEAS COPIAR"
var = MsgBox("La base de datos ha sido respaldada con exito", vbExclamation, "Exito")
NOHAGASNADA:
Screen.MousePointer = vbDefault

...Y LISTO!...Espero te sirva...Saludos!

[juanutcm]

oye hice lo que me aconsejaste y me marco un error que me dice permiso denegado.... sabbes que pueda ser?.... y luego pongo lo siguiente....

Dir1 = App.Path & "\Prueba\db1.mdb"
dir2 = App.Path & "\Prueba\Respaldo\"
FileCopy Dir1, dir2

y me dice que no se ha encontrado la ruta de acceso....

me comienzo a desesperar....

[avilware]

...Por que no pruebas PRIMERO, poniendo los valores exactos...

En vez de: App.Path & "\Prueba\db1.mdb"
PRUEBA CON \\SERVER\...\Prueba\db1.mdb...etc etc

...O prueba tambien directamente con un archivo en tu mismo Computador...

FileCopy "c:\Mis Documentos\archivoprueba.txt", "c:\archivoprueba.txt"

...Fijate bien que el archivo ORIGEN realmente exista, a su vez que la carpeta DESTINO tambien exista, pon los nombres de los archivos con todo y EXTENSION (.txt, .mdb)... ESPERO TE SIRVAN ESTOS TIPS ...Saludos!