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


30034


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