Make folder not quite working correctly

[erutherford]

If the folder doesn't exit, the code functions fine creating a folder in the correct path. If the folder already exist, the If statement doesn't do its job. Its has to be something simple

Sub CreateFolder()

'Variable declaration
    Dim sFolderPath As String

    'Define Folder Path
    sFolderPath = "C:\MyCar_Photos"

    'Check Specified Folder exists or not
    If Dir(sFolderPath) <> "" Then
        'If folder is available
        MsgBox "Folder exists!", vbInformation, "MyCar Photos"
        Exit Sub
    End If

    MkDir sFolderPath

End Sub
[/code}

 

[Domenic]

Since you're searching for a folder/directory instead of a file, you need to set the attribute for Dir to vbDirectory...

If Dir(sFolderPath, vbDirectory) <> "" Then

Hope this helps!

 

[erutherford]

yep something simple. A little side note. Probably most of us beginners search all over the net looking for the answers to our excel problems. Some of these sites have a pretty big presence and provide samples of their work, but I am wondering why they don't "check" their work before posting, Frustrating!
The one good thing is that the answer always seems to come from here, MrExcel and the MVPs! Thanks for your help Domenic!

 

[Domenic]

Yeah, after so many years, MrExcel is still my favourite site.

And, you're very welcome, I'm glad I could help.

Cheers!