[UbadahJafry]

I have with Problem with

On Error Goto Start

 SaveFile.ShowDialog()
        b = SaveFile.FileName

        If Not System.IO.File.Exists(b) = True Then
            Dim file As System.IO.FileStream
            file = System.IO.File.Create(b)
            file.Close()
        End If
        My.Computer.FileSystem.WriteAllText(b, RichText.Text, False)
        TabControl1.SelectedTab.Text = b
Start:
        MsgBox(Err.Description)

This Works on Error with problem is that if there is no error But still it excute the messagebox

[JackOfAllTrades]

Proper code tags:

[UbadahJafry]

Sorry but code is

 SaveFile.ShowDialog()
        b = SaveFile.FileName

        If Not System.IO.File.Exists(B)/> = True Then
            Dim file As System.IO.FileStream
            file = System.IO.File.Create(B)/>
            file.Close()
        End If
        My.Computer.FileSystem.WriteAllText(b, RichText.Text, False)
        TabControl1.SelectedTab.Text = b
Start:
        MsgBox(Err.Description)

[lar3ry]

UbadahJafry, on 30 June 2013 - 12:09 PM, said:

This Works on Error with problem is that if there is no error But still it excute the messagebox

There's nothing magical about a label. "Start:" is a label. When your program finishes executing line 10, it will then execute the next line, which is line 12. The only thin your "On Error" line does is to skip any lines between a line giving an error and line 11.

On Error is an older, VB way of doing things. You should use a Try/Catch block.

This post has been edited by lar3ry: 30 June 2013 - 12:35 PM

[andrewsw]

So, you need Exit Sub before your Start label, otherwise the code following the label is always executed.

Even so, you should be using Try..Catch as lar3ry suggested (and MessageBox.Show).

BTW I've changed your topic-title. Please try and use more descriptive titles than just "Error".

This post has been edited by andrewsw: 30 June 2013 - 04:13 PM