How to tell if a string is a folder?

[QuantBurner]

Hi,
I need some VBA code to return True/False if a string is a valid folder.
Thanks!

 

[VoG]

Try this function

Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function

 

[Scott Huish]

Function IsFolder(r As String) As Boolean
If Dir(r, vbDirectory) <> "" Then IsFolder = (GetAttr(r) = 16)
End Function

 

[QuantBurner]

Awesome! Thanks to both!

 

[QuantBurner]

BTW, I added some error handling to make this more robust:
Function IsFolder(strName As String) As Boolean
IsFolder = False
On Error Resume Next
IsFolder = Dir(strName, vbDirectory) <> "" And GetAttr(strName) = 16
End Function

Works like a charm!

Cheers!

 

[QuantBurner]

One more thing...
I ran into some issues with the getattr() i.e. some folders returned 48 (vbDirectory (16) +vbArchive (32) = 48). So, after much annoyance, I ended up writing a decimal to binary converter (since dec2bin is not an available function in VBA) and doing a bit wise comparison using the mid function. If anyone know of a better method (ie simpler and just as robust), please reply to this thread.
Cheers

 

[John_w]

You could do a bitwise AND like this:

Function IsFolder(strName As String) As Boolean
    IsFolder = False
    On Error Resume Next
    IsFolder = Dir(strName, vbDirectory) <> "" And (GetAttr(strName) And vbDirectory) <> 0
End Function

 

[Scott Huish]

Setting IsFolder to False at the beginning of your code to FALSE is unnecessary as setting the function to type Boolean automatically initiliazes to FALSE. I changed my code slightly after my original post, that should make the On Error Line unneeded either.

 

[Scott Huish]

Function IsFolder(r As String) As Boolean
If Dir(r, vbDirectory) <> "" Then IsFolder = (GetAttr(r) And vbDirectory)
End Function