文件重命名后，将网络驱动器映射到 SharePoint 位置失败

如何解决文件重命名后，将网络驱动器映射到 SharePoint 位置失败

我发现在 SharePoint O365 中创建文件夹的唯一方法是使用备用驱动器号临时映射站点文件夹，使用 mkdir 然后取消映射。它适用于我有“MyFile001.xlsm”的特定文件

Sub SharepointAddFolder(folderPath,newFolderName)

    Dim ntwk As Object
    Dim driveLetter As String
    
    driveLetter = GetNextAvailableDriveLetter

    If driveLetter = "" Then MsgBox "You have no spare drives": Exit Sub

    Set ntwk = CreateObject("WScript.Network")
    
    ntwk.MapNetworkDrive driveLetter,folderPath,False

    If Len(Dir(driveLetter & "/" & newFolderName,vbDirectory)) = 0 Then
        MkDir driveLetter & "/" & newFolderName
    Else
        MsgBox "Folder " & newFolderName & " already exists."
    End If

    ntwk.RemoveNetworkDrive driveLetter

End Sub

Private Function GetNextAvailableDriveLetter() As String
Dim fso As New FileSystemObject
Dim i As Long
Dim ret As String
For i = 67 To 90
    If Not fso.DriveExists(Chr$(i)) Then
        ret = Chr$(i) & ":"
        Exit For
    End If
Next i
GetNextAvailableDriveLetter = ret
End Function

但是，没有更改任何代码我已将此文件保存为“MyFile002.xlsm”，现在映射在该文件中不起作用。为什么会发生这种情况？

它在“MyFile001.xlsm”中仍然有效，如果我强制新文件使用不同的驱动器号，它仍然有效......

有人可以解释这种行为以及如何规避它吗？