Problems Creating Folders With VBA

[Ark68]

I have this code...

            strFile = distpath & mntxt
            If FileExists(strFile) = False Then
                MkDir strFile
            End If
            subpath2 = Format(Day(inq_date), "00") & " " & UCase(daytext)
            MkDir subpath1 & subpath2

mntxt = "August"
distpath = "D:/wsop 2020/Distributables/"
strFile = "D:/wsop 2020/Distributables/August"
subpath2 = "06 THU"

I use a function (FileExists) to check if this path exists, and if it doesn't, then create it. 'distpath' always exists, but if the month folder doesn't exist in it, then create the month (mntxt) folder.

Problem 1:
When 'August" exists in 'distpath', the FileExists function comes back = false and proceeds to create the folder "August" as if it didn't exist. The line in red results in a "Path/File access error." Looking for help in what is causing this error. Is it because the path exists already? If so, what would be causing the function to report the path being nonexistent when it truly exists. If the function returned true, it wouldn't try to recreate the folder.

Problem 2:
I am trying to add a new folder (subpath2) to the month folder. What I have in blue isn't the right approach. Can someone share how to create a new folder in an existing folder?

 

[Yongle]

I did some more testing by writing a module that I could test different values of strFile for testing the FileExists function.

The function you posted is designed to find files not folders but you are trying to use it to find folders

Hopefully the 2 functions in posts #9 & #10 provide what you require

 

[Ark68]

Hopefully the 2 functions in posts #9 & #10 provide what you require

It sure does!! When I went Googling in an effort to self educate, my resource didn't indicate that that method was specific for files (although it didn't indicate it did either). But now I, and likely others going forward, have a reliable answer.Thank you!!

But why did it work in my first two tests in post #8.

Thanks again Yongle.

 

[Yongle]

my resource didn't indicate that that method was specific for file

Therein lies the unseen big danger of relying on the almighty google ... whether researching VBA solutions ... or anything else whatsoever
CAVEAT GOOGLER!!

But why did it work in my first two tests in post #8.

Investigate as follows

Amend your original function and BELOW this line:
TestStr = Dir(filePath)
Insert:
Debug.Print TestStr

Use those 2 tests values with the original function
The strings written to the immediate window may give you a clue