resume next in VB.NET ?

[fniles]

In VB 6 I can do the following:

Sub MySub
on error goto Err1
: --all my codes are here
: --say this is where the error occurs
: --this is where resume next will bring me after Err1
exit sub

Err1:
msgbox "error = " & error
resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the error.
Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
try
: --all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close()
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and will not
execute the rest of the code in my subroutine.

[Nabil]

On 17 Apr, 14:55, "fniles" <fni...@pfmail. comwrote:

In VB 6 I can do the following:

Sub MySub
on error goto Err1
* * : *--all my codes are here
* * : *--say this is where the error occurs
* * : --this is where resume next will bring me after Err1
exit sub

Err1:
* * msgbox "error = " & error
* * resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the error.
Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
* * * * try
* * * * : *--all my codes are here
* * * * Catch ex As Exception
* * * * * * Try
* * * * * * * * swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
* * * * * * * * swError.WriteLi ne(Now & " error = " & ex..Message)
* * * * * * * * swError.Close()
* * * * * * * * swError = Nothing
* * * * * * Catch ex2 As Exception
* * * * * * End Try
* * * * End Try
End Sub

With the above code, if I get an error, it will exit the sub and will not
execute the rest of the code in my subroutine.

You should put Try and Catch around all code you suspect may cause an
error. So

Try
: --one line of code that you need to catch errors on
Catch ex2 As Exception
End Try

Try
: --one line of code that you need to catch errors on
Catch exc as Exception
End Try

You can also put in a Finally clause that will run whether there is an
exception or not!

Good luck!

[Patrice]

AFAIK you still have on error resume next in VB 2005...

That said I would avoid this. Either you know what is the error (this is the
purpose of try catch) and you can do something about this or this is an
unknown error and IMO still trying to blindly runs will make things worse...
--
Patrice

"fniles" <fn****@pfmail. coma écrit dans le message de news:
eC************* *@TK2MSFTNGP05. phx.gbl...

In VB 6 I can do the following:

Sub MySub
on error goto Err1
: --all my codes are here
: --say this is where the error occurs
: --this is where resume next will bring me after Err1
exit sub

Err1:
msgbox "error = " & error
resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the error.
Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
try
: --all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close()
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and will not
execute the rest of the code in my subroutine.

[=?Utf-8?B?QU1lcmNlcg==?=]

I agree with other responders about try-catch being a better construct. That
said, with breakpoints on the two commented statements below, the behavior
you want happens. The i\j error occurs, then a branch to err1, and finally
resume next back in sequence.

Sub MySub()
Dim i, j, k As Integer
On Error GoTo err1
k = i \ j
k = k ' break here second
Return
err1:
k = k ' break here first
Resume Next
End Sub


"fniles" wrote:

In VB 6 I can do the following:

Sub MySub
on error goto Err1
: --all my codes are here
: --say this is where the error occurs
: --this is where resume next will bring me after Err1
exit sub

Err1:
msgbox "error = " & error
resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the error.
Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
try
: --all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close()
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and will not
execute the rest of the code in my subroutine.

[Armin Zingler]

"fniles" <fn****@pfmail. comschrieb

In VB 6 I can do the following:

Sub MySub
on error goto Err1
: --all my codes are here
: --say this is where the error occurs
: --this is where resume next will bring me after Err1
exit sub

Err1:
msgbox "error = " & error
resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the
error. Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
try
: --all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close()
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and
will not execute the rest of the code in my subroutine.

It's probably very rare that one wants to ignore errors in multiple
consecutive lines. I think the only way to recreate the VB6 behavior is:

try
statment #1
catch 'note: no "ex as exception" necessary
end try

try
statment #2
catch
end try

And so on. However, I see, if you wanted to do the same error handling
in each catch block, you'd have to write the same each time.
Armin

[Phill W.]

fniles wrote:

Sub MySub
Try
--all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close()
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and will not
execute the rest of the code in my subroutine.

Correct. You have to wrap your Exception handling as "tightly" around
the [potential] source of the error as you can, even if that's around a
single call to a.n.other function.

Also:

If you need to support Vista (with UAC in place) any time soon, think
twice about logging into the application's "own" directory. "Regular"
Users won't have permission to write anything under "Program Files" so
your StreamWriter creation could well fail .

Setting swError to Nothing has no useful effect. Close() has already
called Dispose() on the StreamWriter and the underlying FileStream.

HTH,
Phill W.

[sloan]

I'm not trying to be mean, but .. you need a HEAVY DOSE of how to handle
exceptions in DotNet.

Read and bookmark this page:
http://blogs.msdn.com/kcwalina/archi...16/396787.aspx

...

Throw out your VB6 mentality all together. Just because you ~can~ in
VB.NET, doesn't mean you should.

...

"fniles" <fn****@pfmail. comwrote in message
news:eC******** ******@TK2MSFTN GP05.phx.gbl...

In VB 6 I can do the following:

Sub MySub
on error goto Err1
: --all my codes are here
: --say this is where the error occurs
: --this is where resume next will bring me after Err1
exit sub

Err1:
msgbox "error = " & error
resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the error.
Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
try
: --all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close()
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and will not
execute the rest of the code in my subroutine.

[Martin H.]

Hello Phill,

If you need to support Vista (with UAC in place) any time soon, think
twice about logging into the application's "own" directory. "Regular"
Users won't have permission to write anything under "Program Files" so
your StreamWriter creation could well fail .

This is not just with Windows Vista, but also With XP (and also with
2000/NT AFAIK). I really wonder, why this reduced right thingy is always
mentioned in combination with Vista... If you use a limited account with
XP (as you should) you also can't write into the "Program files" directory.

Therefore:

- if you need to share write access for files among users, write into
"C:\Documen ts and Settings\All Users\Applicati on Data"

- if you need to write files for each user separately, write into
"C:\Documen ts and Settings\<User name>\Applicati on Data"

Since MS can change the paths at their own discretion (as they did with
Vista - there it is C:\Users\...) it is always a good idea to get the
path from the .NET framework.

ApplicationData directory for the running program under the logged-in user:
My.Computer.Fil eSystem.Special Directories.Cur rentUserApplica tionData
(=C:\Documents and Settings\<User name>\Applicati on
Data\Company\Pr ogramName\Versi on)

ApplicationData directory for the logged-in user:
Environment.Get FolderPath(Envi ronment.Special Folder.Applicat ionData)
(=C:\Documents and Settings\<User name>\Applicati on Data)

ApplicationData directory for all users:
Environment.Get FolderPath(Envi ronment.Special Folder.CommonAp plicationData)
(=C:\Documents and Settings\All Users\Applicati on Data)

Best regards,

Martin

[fniles]

Thank you.

try
statment #1
catch 'note: no "ex as exception" necessary
end try

Does it mean that I want to do the above codes for each line of the codes ?

"Armin Zingler" <az*******@free net.dewrote in message
news:uT******** ******@TK2MSFTN GP02.phx.gbl...

"fniles" <fn****@pfmail. comschrieb

>In VB 6 I can do the following:

Sub MySub
on error goto Err1
: --all my codes are here
: --say this is where the error occurs
: --this is where resume next will bring me after Err1
exit sub

Err1:
msgbox "error = " & error
resume next
end sub

With the above codes, when I get an error, it did not exit out of my
subroutine, instead I will go to the next statement after I get the
error. Can I do the same thing in VB.NET 2005 ? Thank you.

Currently in VB.NET, this is what I do:

Sub MySub
try
: --all my codes are here
Catch ex As Exception
Try
swError = New StreamWriter(Ap plication.Start upPath &
"\Log.txt", True)
swError.WriteLi ne(Now & " error = " & ex.Message)
swError.Close( )
swError = Nothing
Catch ex2 As Exception
End Try
End Try
End Sub

With the above code, if I get an error, it will exit the sub and
will not execute the rest of the code in my subroutine.

It's probably very rare that one wants to ignore errors in multiple
consecutive lines. I think the only way to recreate the VB6 behavior is:

try
statment #1
catch 'note: no "ex as exception" necessary
end try

try
statment #2
catch
end try

And so on. However, I see, if you wanted to do the same error handling in
each catch block, you'd have to write the same each time.
Armin

[Tom Shelton]

On 2008-04-17, Martin H. <hk***@gmx.netw rote:

Hello Phill,

>If you need to support Vista (with UAC in place) any time soon, think
twice about logging into the application's "own" directory. "Regular"
Users won't have permission to write anything under "Program Files" so
your StreamWriter creation could well fail .

This is not just with Windows Vista, but also With XP (and also with
2000/NT AFAIK). I really wonder, why this reduced right thingy is always
mentioned in combination with Vista... If you use a limited account with
XP (as you should) you also can't write into the "Program files" directory.

I think because the restrictions are tighter under Vista. It fails even
as an admin account - which wasn't the case on XP.

In other words, you have to do the right thing always....

--
Tom Shelton