Filepath when Saving to Sharepoint folder

[Cammandk]

I had code to correctly save to a local/network folder but its now not working when the file is on sharepoint.

'the following function will get the path only (i.e. the folder) from the file's full path:
Function FilePath(strPath As String) As String
  FilePath = Left$(strPath, InStrRev(strPath, "\"))
End Function

https://arrowmedia.sharepoint.com/P...ter/PDavid/Cost Books/BU AM TEMPLATE V1.xlsm

I think I need to strip our the https:?