Visual Basic - guardar como????

Life is soft - evento anual de software empresarial
 
Vista:

guardar como????

Publicado por Niki (78 intervenciones) el 06/06/2003 02:55:29
Hola gente!!. Desde mi aplic. quiero guardar un archivo y utilizo el cuadro de dialogo command dialog (abierto como saveshow), pero como le indico al boton aceptar de ese cuadro que me copie el archivo????
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:guardar como????

Publicado por Victor Lara (47 intervenciones) el 06/06/2003 03:28:54
La propiedad del CommonDialog te permite definir por codigo el boton aceptar el que guarde un archivo, esta lo hara donde hayas selecionado el path de destino del mismo no es complicado, solo ponle aceptar y lo hace solo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:guardar como????

Publicado por Niki (78 intervenciones) el 06/06/2003 03:39:25
Hola Victor. sabes que intente darle nomas al boton, pero cuando voy al directorio no me figura el archivo que supuestamente guarde. Si tienes un ejemplo te agradeceria.
Gracias x tu rta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:guardar como????

Publicado por Victor Lara (47 intervenciones) el 06/06/2003 03:57:56
Este es un ejemplo de respaldo de una Base de datos

Private Sub mnuBckpBdatos_Click()
Dim destino, fuente As String
Dim resp As Integer
With CommonDialog1
.DialogTitle = "Seleccione nombre y Ruta para Respaldo"
.DefaultExt = "*.MDB"
.Filter = "Base de datos (*.mdb)|*.mdb|Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
.ShowSave
End With
fuente = Conecta ' Aki puedes poner la ruta de tu archivo
destino = CommonDialog1.FileName
On Error GoTo ManejadorError
FileCopy fuente, destino
MsgBox "Copia de seguridad realizada", vbInformation, "Informacion al Usuario"
Desconecta
Exit Sub

Espero te sirva..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar