Script not working after moving data to SharePoint

[DaRichMan]

All our data has been moved to SharePoint. In al lot of Excel files the following code is used


MicrosoftTeams-image.png


But now that the data is on SharePoint, this no longer works.
Any help is appreciated

[snb]

You use a redundant function to get the same result as

Thisworkbook.path

what is the result of

Msgbox Thisworkbook.path

zie: https://www.snb-vba.eu/VBA_Bestanden.html#L_1.8

[DaRichMan]

Msgbox Thisworkbook.path
Dan komt er een message met het pad in SharePoint

[snb]

   MsgBox CreateObject("scripting.filesystemobject").GetParentFolderName(ThisWorkbook.FullName)

of

MsgBox CreateObject("scripting.filesystemobject").GetParentFolderName(ThisWorkbook.path)

[DaRichMan]

MsgBox CreateObject("scripting.filesystemobject").GetParentFolderName(ThisWorkbook .FullName)
Displays the current folder

MsgBox CreateObject("scripting.filesystemobject").GetParentFolderName(ThisWorkbook .path)
Returns the subfolder