guardar con commonDialog

Ana
17 de Enero del 2006
hola a [email protected]!

os comento lo que quiero hacer:

tengo el típico ejemplo de un commondialog. pero no he encontrado ningún ejemplo que realmente guarde el archivo que seleccionas. cuando le das a guardar no realiza esta acción.

¿alguien sabe que código debo añadir si quiero que al pulsar guardar del commondialog, realmente lo guarde? (en el código que os pongo, lo que hace, es mostrar el nombre del fichero por pantalla, pero no se como hacer para que guarde)

muchas gracias por adelantado.


Private Sub FicheroGuardar_Click()
' Si ocurre un error ejecutar ManipularErrorGuardar
On Error GoTo ManipularErrorGuardar
' Generar un error cuando se pulse Cancelar
CommonDialog1.CancelError = True
' Filtros
CommonDialog1.Filter = "Ficheros de proyecto (*.vbp)|*.vbp|Todos los ficheros (*.*)|*.*"
' Filtro por omisión
CommonDialog1.FilterIndex = 1
' Visualizar la caja de diálogo
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileTitle
' CommonDialog1.FileTitle contiene el nombre
' del fichero elegido

SalirGuardar:
Exit Sub

ManipularErrorGuardar:
' Manipular el error
If Err.Number = cdlCancel Then Exit Sub
MsgBox Err.Description
Resume SalirGuardar
End Sub

mvallejos
17 de Enero del 2006
Tenés un error de concepto Ana, el CommonDialog es solo una interface para que se puede seleccionar un archivo para abrir o determinar un nmbre de archivo para guardar. De ningún modo te va a grabar el archivo, esa parte te toca a vos hacerla a partir de la propiedad Filename que te retorna , no lo hace el CommonDialog.

Saludos