Does folder exist problem

[Guest]

My Code below is attempting to check if a folder exists and if so exit the
sub. Can anyone point me in the right direction

mypath = "e:\Temp\" & Actuals

If Dir(mypath) <> "" Then
MkDir mypath
Else
MsgBox "Folder already Exists"
Exit Sub
End If

For i = lb To ub
mypath = "e:\Temp\" & Actuals & Arr1(i)
If Dir(mypath) = "" Then
MkDir mypath
End If
Next i

 

[Tom Ogilvy]

If Dir(mypath) = "" Then
MkDir mypath
Else
MsgBox "Folder already Exists"
Exit Sub
End If

 

[Guest]

Thx Tom,

I have one more question, how best to trap the error generated when the
directory exists and the macro is attempting to overwrite it. How should I
capture that error and process it?

 

[Tom Ogilvy]

On Error Resume Next
mkdir mypath
On Error goto 0