CreateFolder Method keeps returning error 76, "Path not found", when attempting to create a new folder

Question

I did some reading, and came up with the following code:

Function ExistingDir(ByVal strPath As String) As Boolean

Dim oFSO As Object
    If Right(strPath, 1) = "\" Then strPath = Left(strPath, Len(strPath) - 1)

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    ExistingDir = oFSO.FolderExists(strPath)

End Function

Sub CreateDir(ByVal NewFolderPath As String)
Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CreateFolder (NewFolderPath) '<<=== Error line
End Sub

and they are called via the following so they are being sent the same path string:

If Not ExistingDir(ArchivePath) Then
    CreateDir ArchivePath

The first checks to see if the directory exists and the second creates the directory. I keep getting the following error when I step through the code:

When I look in the Locals window I can see the value for NewFolderPath is:

"C:\Users\me\Desktop\LOCAL CPS folder\Vision 2020\191007\MTOD\Archive\20200124"

I read the following questions Q1 Q2 Q3

I have tried:

oFSO.CreateFolder (TRIM(NewFolderPath))
oFSO.CreateFolder (TRIM(NewFolderPath) & "\")
oFSO.CreateFolder TRIM(NewFolderPath)
oFSO.CreateFolder TRIM(NewFolderPath) & "\"

I also found this question though not sure if it applies. I suspected it might have something to do with spaces in the path, but changing the line to:

oFSO.CreateFolder """" & NewFolderPath & """"

It produced a bad filename error.

I have full read/write access to the folder C:\Users\me\Desktop\LOCAL CPS folder\Vision 2020\191007\MTOD to the best of my knowledge. I created it to begin with. I am trying to create the sub folder \Archive\20020124. And when looking though file explorer the folder does not show in the directory so its not a case of it already existing.

What am I doing wrong for creating that folder?

Update:

I think I may have figured it out. Do I need to create the folder Archive then create the folder 20020124?

Are you trying to create a single folder or several folders (ie multiple parts of the path are not there when you call your code) ? — Tim Williams, Feb 10 '20 at 22:55
@TimWilliams I just added a clarification on that part. I was editing before I got to read your comment. I am trying to add `\Archive\20020124` — Forward Ed, Feb 10 '20 at 22:56
@TimWilliams Thanks for the confirmation. I had that link as Q1. Apparently I need to read more carefully! — Forward Ed, Feb 10 '20 at 23:00

score 1 · Accepted Answer · answered Feb 12 '20 at 17:46

For those looking at this in the future, the answer is that you need to create the sub directories one at a time. The Q1 in the question has many answers showing how to do this. Also note Tim Williams confirmation that this is the correct approach and that trying to generate \Archive\Date in one step was the cause of the problem.

CreateFolder Method keeps returning error 76, "Path not found", when attempting to create a new folder

1 Answers1