CommonDialog Guardar

[erbuson]

Hola, este es un ejemplo que puedes revisar y creo que comprenderás facilmente:


Private Sub Command1_Click()
On Error GoTo Cancelado
cdl.CancelError = True
cdl.FileName = "JUAN"
cdl.ShowSave
MsgBox "Seleccionado " & cdl.FileName
Exit Sub
Cancelado:
MsgBox "Cancelado"
End Sub


Lo que haces es con la opción .CancelError = True es obligarle a simular un error si el usuario pulsa cancelar.

Saludos