Directory Exists

[Steven]

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


Thank you,

Streven

 

[Allen Browne]

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

 

[Jack Leach]

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)

 

[Allen Browne]

Actually that doesn't quite cut it.

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

 

[Jack Leach]

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)