Trap Error (1 Viewer)

[*Pete*]

Hi, I have a button that creates a folder, but if the folder already exists it comes up with a Run Time Error 75. I have the following code to try to stop this but it does not seem to work. Does anyone have any sugestions on how i can fix this.

If DataErr = 75 Then
MsgBox " Already Exists", vbCritical + vbOKOnly, "Error"
Else
strDirectoryPath1 = DLookup("Centre_DataLocation", "T_CentreDetails") & "\Files\ & [MainFolder]
MkDir (strDirectoryPath1)
End If

Pete

 

[Banana]

Should "DataErr" be just "Err" or maye "Err.Number"?

 

[ghudson]

That is not how you should test if a directory already exist.

If Dir("C:\temp\", vbDirectory) = "" Then
     MsgBox "Directory does not exist"
Else
     MsgBox "Directory does exist"
End If

 

[*Pete*]

Thanks for your help.

Pete