vba选中创建映射驱动器或跳过(如果存在

Private Declare PtrSafe Function WNetAddConnection2 Lib "mpr.dll" _
    Alias "WNetAddConnection2A" (ByVal lpNetResource As NETRESOURCE, _
    ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Private Declare PtrSafe Function WNetCancelConnection2 Lib "mpr.dll" _
    Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Boolean) As Long

Private Type NETRESOURCE
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    lpLocalName As String
    lpRemoteName As String
    lpComment As String
    lpProvider As String
End Type

Const CONNECT_UPDATE_PROFILE = &H1
Const NO_ERROR = 0

Sub MapNetworkDrive()
    Dim nr As NETRESOURCE
    Dim strDriveLetter As String
    Dim strRemotePath As String
    Dim strUsername As String
    Dim strPassword As String
    Dim lngResult As Long

    ' 设置远程路径和凭据
    strRemotePath = "\\Server\Share"
    strUsername = "YourUsername"
    strPassword = "YourPassword"
    strDriveLetter = "Z:"

    With nr
        .dwType = RESOURCETYPE_DISK
        .lpRemoteName = strRemotePath
        .lpLocalName = strDriveLetter
    End With

    ' 尝试创建映射
    lngResult = WNetAddConnection2(nr, strPassword, strUsername, CONNECT_UPDATE_PROFILE)

    If lngResult = NO_ERROR Then
        MsgBox "映射成功！"
    Else
        Select Case lngResult
            Case ERROR_ALREADY_ASSIGNED: MsgBox "驱动器已被映射到其他路径。"
            Case ERROR_INVALID_PASSWORD: MsgBox "无效的密码。"
            Case ERROR_INVALID_PARAMETER: MsgBox "无效的参数。"
            Case ERROR_NO_NET_OR_BAD_PATH: MsgBox "网络路径不存在或无效。"
            Case ERROR_NO_NETWORK: MsgBox "没有可用的网络连接。"
            Case Else: MsgBox "未知错误：" & lngResult
        End Select
    End If
End Sub