Find if directory exists

[JonnyArcher]

I can get Access to create directories without a problem but obviously I need to know if it already exists otherwise access returns an error.
I've tried
NewDir = "C:\Non Server Calls\" & Me.Group & "\" & Me.Area
If IsNull(Dir(NewDir)) Then
MkDir NewDir
Else: End If

but this always returns true whether or not the directory exists.

Any ideas anyone, I can't find it in any of my books!

 

[Gates Is Antichrist]

This appears crass but I believe it to actually be a clean solution.

on error goto MkDirErr1
make the dir
on error goto 0
do the rest of your code

MkDirErr1:
resume next
end sub

Keep in mind that it boldly presumes that the only possible error would be duplication of existing dir. There may be other issues, such as network rights, so you may want to experiment with this and perhaps refine it to use specific error code checking, etc. (Debug it and check Err to see which.)

 

[Gates Is Antichrist]

Try http://ozgrid.com/forum/viewthread.php?tid=7850 and
http://www.tek-tips.com/faqs.cfm?spid=707&newpid=707&sfid=4116
and of course papa John
http://j-walk.com/ss/excel/tips/tip54.htm#func3