Fijate que por algun motivo no me funciona tu codigo pkj, pero el que tenia anteriormente si me funcionaba solo que solo me mandaba a la memoria USB "F"
Código vb:
Ver originalWith CommonDialog1
''Muestra el titulo del cuadro de dialogo
.DialogTitle = " Seleccione la base de datos a extraer "
''Abrimos cuadro de dialogo en modo (Showsave)
.ShowSave
'Muestra el nombre del archivo dentro del panel de seleccion del cuadro de dialogo
If .FileName <> "" Then
''''Indica al Cuadro de Dialogo(CommonDialog) la ruta a la cual va extraer la base de datos correspondiente
FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)
'' Muestra la Alerta indicando que la accion fue completada satisfactoriamente
If MsgBox("Base de datos extraida satisfactoriamente", vbOK + vbInformation, "Modulo") = vbOK Then '''En el caso del boton OK (SALIR)
End
Else ''De lo contrario
.ShowSave '''Volver a cargar el Cuadro Dialogo
End If
Else
''Mensaje de Alerta en caso de que no se seleccione ningun archivo
If MsgBox("No se ha seleccionado ningún archivo, Deseas salir de todos modos ?", vbOK + vbExclamation, "Modulo") = vbOK Then
End
Else
.ShowSave
End If
End If
End With
End Sub
El problema esta en esta linea:
Código vb:
Ver originalFileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)
Que solo envia a la ruta "F" alguien conoce indicar la ruta mediante un DriveListbox....
Y tu codigo no me funciono al momento de guardar la base no funciono