Catching errors

[Geoff Turner]

Hi all,
I must be going round the twist here. I have a simple
basic modual with the following code:

Public Sub CreateDir()
On Error GoTo MakeErr
MkDir "c:\Temp\Symbols"
Exit Sub

MakeErr:
Dim result
result = MsgBox("ERROR!", vbOKOnly)
Exit Sub
End Sub

ie if the folder already exists, then report so and continue.

In reality, if the folder does exists, then I get the usual Path/File
Access error, my routine by-passed and program terminates. Am I missing
something here?

I'm using VB6 on NT.
TIA
GST

[J French]

GetAttr first - fronted as DirExists

On Tue, 10 Feb 2004 14:43:51 -0000, "Geoff Turner"
<g.********@rl.ac.uk> wrote:

Hi all,
I must be going round the twist here. I have a simple
basic modual with the following code:

Public Sub CreateDir()
On Error GoTo MakeErr
MkDir "c:\Temp\Symbols"
Exit Sub

MakeErr:
Dim result
result = MsgBox("ERROR!", vbOKOnly)
Exit Sub
End Sub

ie if the folder already exists, then report so and continue.

In reality, if the folder does exists, then I get the usual Path/File
Access error, my routine by-passed and program terminates. Am I missing
something here?

I'm using VB6 on NT.
TIA
GST