How do I check to see if a folder exists within a directory in excel VBA?

[dan7055]

How can I check to see if a folder within a specific filepath already exists?

For example

If C:/desktop/example/folder/bob exists then

msgbox "This folder is already here"
exit sub

end if

What would the proper syntax for this be?

Thanks
Dan

 

[Bruno_x]

source: Excel Checking if a directory exists

Sub CheckDirectory()
If Dir("C:\desktop\example\folder\bob\") <> "" Then
MsgBox "This folder is already here"
Else
MsgBox "No, path does not exist."
End If
End Sub

 

[dan7055]

source: Excel Checking if a directory exists

Sub CheckDirectory()
If Dir("C:\desktop\example\folder\bob\") <> "" Then
MsgBox "This folder is already here"
Else
MsgBox "No, path does not exist."
End If
End Sub

Can't figure out what I'm doing wrong, but it's not working for me. Even when the path exists, it says it doesn't exist

 

[John_w]

Make sure you have the trailing backslash.

 

[dan7055]

Make sure you have the trailing backslash.

It's there, but still not working

 

[Norie]

You need to use the 2nd argument of Dir.

Sub CheckDirectory()
    If Dir("C:\desktop\example\folder\bob\", vbDirectory) <> "" Then
        MsgBox "This folder is already here"
    Else
        MsgBox "No, path does not exist."
    End If
End Sub

 

[dan7055]

You need to use the 2nd argument of Dir.

Sub CheckDirectory()
    If Dir("C:\desktop\example\folder\bob\", vbDirectory) <> "" Then
        MsgBox "This folder is already here"
    Else
        MsgBox "No, path does not exist."
    End If
End Sub

Not sure what you mean by "use the 2nd argument of Dir." Do you mean use the "Else" statement along with it?

 

[Norie]

Dir takes 2 arguments, the second being optional.

To check for a directory you set the second argument to vbDirectory.

Dir("C:\desktop\example\folder\bob\", vbDirectory)