[RESOLVED] Open Dialog Error

I get an error when i click cancel on it.

VB Code:

Private Sub Open_Click()
Dim strText$
    
    With CommonDialog1
        .Flags = cdlOFNExplorer
        .Filter = "Html (*.html)|*.html"
        .ShowOpen
        Open .FileName For Input As #1
            strText = Input(LOF(1), #1)
            Text1.Text = strText
        Close #1
    End With
End Sub

Try this, I added an error handle to your code, as well as set x to freefile. It works fine for me.

Code:

---

Private Sub Open_Click()
On Error GoTo ErrHandle
Dim strText$

    With CommonDialog1
        .Filter = "Html (*.html)|*.html"
        .Flags = cdlOFNExplorer
        .ShowOpen
       
        x = FreeFile
        Open .FileName For Input As x
            Text1.Text = Input(LOF(x), x)
        Close x
    End With
ErrHandle:
    Exit Sub
End Sub

---

Add .CancelError = False

Quote:

---

Originally Posted by Hack

Add .CancelError = False

---

didn't work

Quote:

---

Originally Posted by xypherx

didn't work

---

VB Code:

Private Sub Command1_Click()
With CommonDialog1
    .CancelError = False
    .Flags = cdlOFNExplorer
    .Filter = "Html (*.html)|*.html"
    .ShowOpen
End With
End Sub

Works just fine for me.

Quote:

---

Originally Posted by Hack

VB Code:

Private Sub Command1_Click()
With CommonDialog1
    .CancelError = False
    .Flags = cdlOFNExplorer
    .Filter = "Html (*.html)|*.html"
    .ShowOpen
End With
End Sub

Works just fine for me.

---

tryed it still didnt work

Quote:

---

Originally Posted by xypherx

tryed it still didnt work

---

You got an error when you hit Cancel????

I don't know why that is happening, but, since it is then trap for the error and when it happens just issue a Resume Next.

hey xypherx!

i tried ur code and it worked fine n got no error!!!! :)

can u explain what kind of error u r getting??

VB Code:

Option Explicit
 
Private Sub open_Click()
Dim strText$
With CommonDialog1
    .CancelError = False
    .Flags = cdlOFNExplorer
    .Filter = "Html (*.html)|*.html"
    .ShowOpen
    Open .FileName For Input As #1
            strText = Input(LOF(1), #1)
            Text1.Text = strText
        Close #1
End With
End Sub

im getting a variable not defined error

Quote:

---

Originally Posted by xypherx

VB Code:

Option Explicit
 
Private Sub open_Click()
Dim strText$
With CommonDialog1
    .CancelError = False
    .Flags = cdlOFNExplorer
    .Filter = "Html (*.html)|*.html"
    .ShowOpen
    Open .FileName For Input As #1
            strText = Input(LOF(1), #1)
            Text1.Text = strText
        Close #1
End With
End Sub

im getting a variable not defined error

---

What variable? What is highlighted when the error occurs?

it says open_click()

but i did it right im sure of it its in the menu

Is it in the menu as mnuOpen or Open?

its fixed but the

VB Code:

Open .FileName For Input As #1

is giving a error for pathname or something like that

Quote:

---

Originally Posted by xypherx

its fixed but the

VB Code:

Open .FileName For Input As #1

is giving a error for pathname or something like that

---

When you select a file from the CommonDialog and click OK, it should return both the full path and filename. The file you are selecting does exist, right?

it will open its just the .cancelerror = false isnt working for it.

Quote:

---

Originally Posted by xypherx

it will open its just the .cancelerror = false isnt working for it.

---

Then, as I said before, just error trap it and you will be good to go.

alright thanks