Please Help .. thanks

[natasharose]

Hi,

I am new to scripting and was hoping that someone could provide me with some assistance with the error that I am receiving. Here is my code:

Public Const RESUME_STATEMENT = 0 'Resume
Public Const RESUME_NEXT = 1 'Resume Next
Public Const UNRECOGNIZED = 3 'Unrecognized error
Public Const ERR_PERMISSIONDENIED = 70


Function FileErrors(errVal As Integer) As Integer
Dim MsgType As Integer, Msg As String, Response As Integer

MsgType = vbExalamation
Select Case errVal
Case ERR_PERMISSIONDENIED 'Error #70
Msg = "That device is unavailable."
MsgType = MsgType + vbokIgnore
Case Else
FileErrors = UNRECOGNIZED
Exit Function
End Select
Response = MsgBox(Msg, MsgType, "Disk Error")
Select Case Response
Case vbOK
FileErrors = RESUME_STATEMENT
Case vbIgnore
FileErrors = RESUME_NEXT
Case Else
FileErrors = UNRECOGNIZED
End Select
End Function


I am trying to setup a function for error handling, specifically to test handling the error permission denied ... I get a compile error of:

' ) ' expected in the following line:

Function FileErrors(errVal As Integer) As Integer


Any help is appreciated .. cheers, Natasha

[SammyB]

Hi,

I am new to scripting and was hoping that someone could provide me with some assistance with the error that I am receiving.
<snip>
I am trying to setup a function for error handling, specifically to test handling the error permission denied ... I get a compile error of:

' ) ' expected in the following line:

Function FileErrors(errVal As Integer) As Integer


Any help is appreciated .. cheers, Natasha

It compiles OK in VB.Net and VBA for me, except for vbExalamation which should be vbExclamation and vbokIgnore which does not exist. I translated the typos into

Option Explicit
Public Const RESUME_STATEMENT = 0 'Resume
Public Const RESUME_NEXT = 1 'Resume Next
Public Const UNRECOGNIZED = 3 'Unrecognized error
Public Const ERR_PERMISSIONDENIED = 70
Function FileErrors(ByVal errVal As Integer) As Integer
Dim MsgType As Integer, Msg As String, Response As Integer
MsgType = vbExclamation
Select Case errVal
Case ERR_PERMISSIONDENIED 'Error #70
Msg = "That device is unavailable."
MsgType = MsgType + vbAbortRetryIgnore
Case Else
FileErrors = UNRECOGNIZED
Exit Function
End Select
Response = MsgBox(Msg, MsgType, "Disk Error")
Select Case Response
Case vbOK
FileErrors = RESUME_STATEMENT
Case vbIgnore
FileErrors = RESUME_NEXT
Case Else
FileErrors = UNRECOGNIZED
End Select
End Function
 

What VB are you using?

[Killer42]

The only thing I can think of initially is that it's expecting you to specify Private or Public before Function.