Ana
17 de Enero del 2006

hola a tod@s!

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