VB6:如何以编程方式重新连接断开的映射驱动器

Question

我的 VB6 程序依赖于网络共享上的数据。无线网络上的 Win XP 通常无法在启动时重新连接映射的驱动器，因此它们处于断开状态。重新连接它们的唯一方法是在资源管理器中双击它们。

如何以编程方式执行此操作？是否有 API 调用可以做到这一点？

Answer 1

您可以使用WNetAddConnection功能

Private Sub cmdMapDrive_Click()
Dim drive_letter As String
Dim share_name As String
Dim password As String

    lblResult.Caption = "Working..."
    Screen.MousePointer = vbHourglass
    DoEvents

    drive_letter = txtDriveLetter.Text
    If InStr(drive_letter, ":") = 0 _
        Then drive_letter = drive_letter & ":"
    share_name = txtShareName.Text
    password = txtPassword.Text

    If WNetAddConnection(share_name, password, _
        drive_letter) > 0 _
    Then
        lblResult.Caption = "Error mapping drive"
    Else
        lblResult.Caption = "Drive mapped"
    End If

    Screen.MousePointer = vbDefault
End Sub

代码来源:VB Helper