VB6:如何连接到网络共享文件夹，而不使用

Private Declare Function WNetAddConnection2A Lib "mpr.dll" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUsername As String, ByVal dwFlags As Long) As Long

Private Type NETRESOURCE
    dwType As Long
    lpLocalName As String
    lpRemoteName As String
    lpProvider As String
End Type

Public Sub MapNetworkDrive(driveLetter As String, networkPath As String, Optional username As String = "", Optional password As String = "")
    Dim nr As NETRESOURCE
    Dim ret As Long
    
    nr.dwType = &H1 ' RESOURCE_CONNECTED
    nr.lpLocalName = driveLetter & ":"
    nr.lpRemoteName = networkPath
    nr.lpProvider = ""
    
    ret = WNetAddConnection2A(nr, password, username, &H0)
    
    If ret = 0 Then
        MsgBox "Network drive mapped successfully."
    Else
        MsgBox "Failed to map network drive. Error code: " & ret
    End If
End Sub