Is there a way to tell if a directory exists. Not a file in a directory
...... but a directory.


Thank you,

Streven

Function FolderExists(strPath As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)
End Function

Explanation:
http://allenbrowne.com/func-11.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Steven" <(E-Mail Removed)> wrote in message
news:58D56B87-6D35-462A-8222-(E-Mail Removed)...
> Is there a way to tell if a directory exists. Not a file in a directory
> ..... but a directory.
>
>
> Thank you,
>
> Streven

You can use the Dir() function, passing the optional argument as vbDirectory

If Len(Dir("C:\Folder", vbDirectory)) = 0 Then
MsgBox "Folder Doesn't Exist"
End If

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)



"Steven" wrote:

> Is there a way to tell if a directory exists. Not a file in a directory
> ..... but a directory.
>
>
> Thank you,
>
> Streven

Actually that doesn't quite cut it.

If there was a file named "Folder", our example would not give the right
answer, Jack.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Jack Leach" <dymondjack at hot mail dot com> wrote in message
news:76F00ECE-D334-4E72-BC4C-(E-Mail Removed)...
> You can use the Dir() function, passing the optional argument as
> vbDirectory
>
> If Len(Dir("C:\Folder", vbDirectory)) = 0 Then
> MsgBox "Folder Doesn't Exist"
> End If
>
> --
> Jack Leach
> www.tristatemachine.com
>
> "I haven't failed, I've found ten thousand ways that don't work."
> -Thomas Edison (1847-1931)
>
>
>
> "Steven" wrote:
>
>> Is there a way to tell if a directory exists. Not a file in a directory
>> ..... but a directory.
>>
>>
>> Thank you,
>>
>> Streven

Sorry, you're right. You would have to add the trailing "\" to make Dir
return "."

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)



"Allen Browne" wrote:

> Actually that doesn't quite cut it.
>
> If there was a file named "Folder", our example would not give the right
> answer, Jack.
>
> --
> Allen Browne - Microsoft MVP. Perth, Western Australia
> Tips for Access users - http://allenbrowne.com/tips.html
> Reply to group, rather than allenbrowne at mvps dot org.
>
> "Jack Leach" <dymondjack at hot mail dot com> wrote in message
> news:76F00ECE-D334-4E72-BC4C-(E-Mail Removed)...
> > You can use the Dir() function, passing the optional argument as
> > vbDirectory
> >
> > If Len(Dir("C:\Folder", vbDirectory)) = 0 Then
> > MsgBox "Folder Doesn't Exist"
> > End If
> >
> > --
> > Jack Leach
> > www.tristatemachine.com
> >
> > "I haven't failed, I've found ten thousand ways that don't work."
> > -Thomas Edison (1847-1931)
> >
> >
> >
> > "Steven" wrote:
> >
> >> Is there a way to tell if a directory exists. Not a file in a directory
> >> ..... but a directory.
> >>
> >>
> >> Thank you,
> >>
> >> Streven
>
>