[RESOLVED] Common dialog error

Hi all

I get a error when I in the dlgcommon press cancel button


On Error GoTo MnuNamnD_click_exit

With dlgDemo
.CancelError = True
.InitDir = mstrLastDir
.Flags = cdlOFNHideReadOnly
.fileName = .FileTitle '""
.Filter = "TextFiles *.txt|*.txt"
.ShowOpen
StrFileToOpen = .fileName
namn = .FileTitle

End With

On Error GoTo MnuNamnD_click_error

IntDemoFileNbr = FreeFile
Open StrFileToOpen For Binary Access Read As #IntDemoFileNbr
StrBuffer = Input(LOF(IntDemoFileNbr), IntDemoFileNbr)
TxtTestFile.Text = StrBuffer

Close #IntDemoFileNbr

mstrLastDir = Left$(StrFileToOpen, InStrRev(StrFileToOpen, "\") - 1)
Label14.Visible = False
Label16.Visible = True
Label16.Caption = "Fil :" & " " & namn
Exit Sub

MnuNamnD_click_error:
MsgBox " Ett Fel inträffade"

MnuNamnD_click_exit:


TxtTestFile.Visible = False
LstData.Visible = True
AvbTxt.Visible = False
SparaTxt.Visible = False

and the error code is runtime code 32755

because I pressed the cancel button.

How to omitt this

BonZo

Quote:

---

Originally Posted by Bonzo2008

I get a error when I in the dlgcommon press cancel button

. . .

and the error code is runtime code 32755

because I pressed the cancel button.

How to omitt this

---

That's exactly the behavior you'll get when the CommonDialog's CancelError property is set to True. Either set it to False or handle the cdlCancel error.

It is better to separate different tasks in different subs/functions, this make coding, debugging and reading easy

try this

Code:

---

Private Sub Command1_Click()

    Dim strFileToOpen As String
    strFileToOpen = GetFileToOpen
   
    If strFileToOpen = vbNullString Then
        ' Cancel pressed
    Else
        ' Open the file
    End If
   
End Sub

Private Function GetFileToOpen() As String
   
    On Error GoTo errCancelPressed
   
    With dlgDemo
        .CancelError = True
        .InitDir = mstrLastDir
        .Flags = cdlOFNHideReadOnly
        .FileName = .FileTitle '""
        .Filter = "TextFiles *.txt|*.txt"
        .ShowOpen
        namn = .FileTitle
        GetFileToOpen = .FileName
    End With
   
   
    Exit Function
   
errCancelPressed:
    GetFileToOpen = vbNullString
End Function

---