I have macro which creates Subdirectories. I need to bypass MkDir command if
that folder already exists. How do you do that?

Thanks for your help.

Jan

If Dir("C:\My Doucuments") <> vbNullString Then

End If


--
Regards
Dave Hawley
www.ozgrid.com
"Jan Nademlejnsky" <(E-Mail Removed)> wrote in message
news:81FF2283-7AE0-49B7-8B98-(E-Mail Removed)...
>I have macro which creates Subdirectories. I need to bypass MkDir command
>if that folder already exists. How do you do that?
>
> Thanks for your help.
>
> Jan

I found it:

Sub DirectoryExists()
FPath = Range("B2")
If Dir(FPath) = "" Then '.....If
Dir("C:\Users\Owner\Documents\ExcelF\") = "" Then
MsgBox "It does not exists"
Else
MsgBox "It is already there"
End If
End Sub


"Jan Nademlejnsky" <(E-Mail Removed)> wrote in message
news:81FF2283-7AE0-49B7-8B98-(E-Mail Removed)...
> I have macro which creates Subdirectories. I need to bypass MkDir command
> if that folder already exists. How do you do that?
>
> Thanks for your help.
>
> Jan

"Jan Nademlejnsky" <(E-Mail Removed)> schrieb im Newsbeitrag
news:81FF2283-7AE0-49B7-8B98-(E-Mail Removed)...
>I have macro which creates Subdirectories. I need to bypass MkDir command if
>that folder already exists. How do you do that?
>
> Thanks for your help.
>
> Jan


As others already sugested, check if the Dir exists.

Or try to create the Dir and simply ignore the error:

On Error Resume Next 'instruct VBA to ignore any error
MkDir "MyNewSubdir"
On Error GoTo 0 'no error handling
or
On Error GoTo MyErrorHandler 'reenable your previous
'error handling

Helmut.