Common Dialog

[Evan]

Im using common dialog with this code,
and it doesnt work to when the cancel
button is pressed.

        With frmPG.CommonDialog1
            .fileName = sLastSave
            .DialogTitle = "Save State"
            .DefaultExt = ".pcs"
            .Filter = "PicBot Saved State | *.pcs"
            .ShowSave
            If .fileName = "" Then Exit Sub
        End With

How can I use this code and know when the cancel
button is pressed?

[Edited by Evan on 11-26-2000 at 12:52 PM]

[Vlatko]

If frmPG.CommonDialog1.Filename <> 0
'the user did not press cancel
End If

[HeSaidJoe]

Private Sub Command1_Click()

On Error GoTo GetOut:

With frmPg.CommonDialog1
            .CancelError = True      'used in cancel code
            .FileName = sLastSave
            .DialogTitle = "Save State"
            .DefaultExt = ".pcs"
            .Filter = "PicBot Saved State | *.pcs"
            .ShowSave
            If .FileName = "" Then Exit Sub
        End With
Exit Sub
GetOut:
 Exit Sub 'error 32775 genterated by .CancelError = true
End Sub

Or you can use:

If Err <> 32755 Then
    'Cancel was not pressed
End If