Does folder exist problem

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
If Dir(mypath) = "" Then
MkDir mypath
Else
MsgBox "Folder already Exists"
Exit Sub
End If
 
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?
 
Back
Top