У меня есть следующий код:
'Get file path
Dim fullName As String, justNameWithExt, justName As String, justPath As String
fullName = ActivePresentation.fullName
justNameWithExt = ActivePresentation.Name
justPath = Replace(fullName, justNameWithExt, "", 1)
justPath = Replace(justPath, "/", "\")
justPath = Left(justPath, Len(justPath) - 1)
justName = Left(ActivePresentation.Name, Len(ActivePresentation.Name) - 5)
' Debug.Print justPath
' The path here starts with https:\\d.docs.live.net\5564dc20c06306b2\
' But it should start with C:\Users\User\OneDrive\
ChDir justPath ' This throws an error - "Path not found"
Он предназначен для того, чтобы текущий путь изменил каталог на него. Проблема (как описано в комментариях ниже Debug.Print justPath) в том, что он не получает правильный путь.
Как это исправить?