VBA 'MkDir' causing run time error for new PC user

[RJSIGKITS]

Hi Guys.
So, I have a new user for the main PC (Logging in with own PC login details), and the Doc that I need all users on the PC to be able to use has the below lines of code that is currently causing a 'Run Time Error 76 - Path not found' error message for debugging. However, I have compared the FilePath etc, and nothing is different from the ... Why will this cause an error for the new user, but not for the main user?

Private Sub BtnSave_Click()Dim Path As String
Dim FileName1 As String
Path = "D:\Data\Docs\Tonido\1. *******s\2 CLIENTS"
FileName1 = Range("I2")
If Dir(Path & "\" & FileName1, vbDirectory) = "" Then
    MkDir (Path & "\" & FileName1)

The filepath on the new users login is:
'D:\Data\Docs\Tonido\1. *******s\2 CLIENTS'
I can't understand why this would run an error?

 

[Fluff]

Does the new user have access to that path?

 

[Richard U]

Full explanation here: https://www.mrexcel.com/forum/excel...-getting-runtime-error-76-path-not-found.html

To sum up, mkdir only effects the last folder to be created.

If the new user doesn't have all of the levels prior, then you get the error.

To correct, verify EVERY directory on the way down, and make it level by level If necessary

 

[RJSIGKITS]

I think I understand what you're saying, but I am sure all the levels are the same as the primary user?..
I have this as my full code:

Private Sub BtnSave_Click()Dim Path As String
Dim FileName1 As String
Path = "D:\Data\Docs\Tonido\1. *******s\2 CLIENTS"
FileName1 = Range("I2")
If Dir(Path & "\" & FileName1, vbDirectory) = "" Then
    MkDir (Path & "\" & FileName1)
    MkDir (Path & "\" & FileName1 & "\V1")
    MkDir (Path & "\" & FileName1 & "\Photos")
    MkDir (Path & "\" & FileName1 & "\Photos" & "\Before")
    MkDir (Path & "\" & FileName1 & "\Photos" & "\Progress")
    MkDir (Path & "\" & FileName1 & "\Photos" & "\After")
    MkDir (Path & "\" & FileName1 & "\Order")
    MkDir (Path & "\" & FileName1 & "\Order" & "\SO")
    MkDir (Path & "\" & FileName1 & "\Order" & "\SO" & "\Remedials")
    MsgBox "Success!" & vbCr & "A New Client Record has been created successfully", vbExclamation + vbOKOnly, "Success!"
    Sheets("Client").Unprotect Password:="Password"
    
    Sheets("Client").Protect Password:="Password"
    ThisWorkbook.Sheets("Home").Activate
    Else
     If MsgBox("A Record Already Exists for this Client" & vbCr & "Click OK to save changes to this record", vbExclamation + vbOKOnly, "Error") = vbOK Then
     ThisWorkbook.Save
    ThisWorkbook.Sheets("Home").Activate
    Exit Sub
    End If
End If
ActiveWorkbook.SaveAs Filename:=Path & "\" & FileName1 & "\" & FileName1 & ".xlsm", FileFormat:=52
End Sub

Debugging highlights "MkDir (Path & "" & FileName1)"

 

[RoryA]

What does:

Dir(Path, vbDirectory)

return for that user?