Estoy intentando hacer una copia de una bd Access, Con el control CommonDialog. de esta forma pero solo me da errores.
A ver si me podeis revisar el codigo, gracias




Dim sArchivo As String
sArchivo = App.Path & "bd_Factura.mdb"
CommonDialog1.InitDir = App.Path
CommonDialog1.DialogTitle = "Guardar Archivo"
CommonDialog1.Filter = "Archivos de Microsoft Access" & _
"(*.mdb)|*.mdb|"
CommonDialog1.ShowSave
'Si no se elige una ruta sal
If CommonDialog1.FileName = "" Then Exit Sub
WPTAH = sArchivo
WPATH1 = CommonDialog1.FileName
FileCopy WPTAH, WPATH1

Una de las posibles causas es que generes incorrectamente el nombre de archivo origen.

Esto:
sArchivo = App.Path & "bd_Factura.mdb"

Cámbialo por:
sArchivo = App.Path & "\bd_Factura.mdb"


Si no he acertado, lo mejor es que nos indiques que error se produce y/o reatrees el código con la tecla F8. Así podrás inspeccionar que valor toma cada variable y acotar el porqué se produce el problema.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Gracias, ese detalle era, muchas gracias