在存储当前文件的同一文件夹中创建新文件夹（在共享点中）

Question

我想运行下面的 VBA 以在存储当前文件的文件夹中创建一个新文件夹。
到目前为止，我已使用以下简单的 VBA 完成此操作：

Sub Create_Folder()
MkDir Application.ThisWorkbook.Path & "\New Folder"
End Sub

---

现在，我的公司转移到了 sharepoint，当我在 sharepoint 文件夹中运行此 VBA 时，我得到 runtime error 76。
我认为这是因为 ThisWorkbook.Path 无法再正确识别路径造成的。
因此，我检查了路径的样子：

https://company.sharepoint.com/sites/Finance1/Freigegebene Dokumente/Controlling/

为了使用这条路径，我在 VBA 中对其进行了调整：

Sub Create_Folder()
WorkbookPath = ThisWorkbook.Path
WorkbookPath = "\\" & Replace(Split(WorkbookPath, "//")(1), "/", "\")
MkDir WorkbookPath & "\New Folder"
End Sub

但是，当我尝试创建新文件夹时，我仍然收到 runtime error 76。

---

令我感到奇怪的是，当我检查 windows explorer 中的链接时，它看起来与我通过 Application.ThisWorkbook.Path 获得的链接完全不同。

C:\Users\firstname.lastname\company\Controlling - Dokumente

---

你知道我如何解决这个问题并在存储当前文件的同一文件夹中创建一个新文件夹吗？