VisualBasic編程映射/中斷網(wǎng)絡(luò)磁盤

下面的程序段可以模擬【網(wǎng)上鄰居】及【我的電腦】中的【映射 / 中斷網(wǎng)絡(luò)磁盤】，就是出現(xiàn)【映射 / 中斷網(wǎng)絡(luò)磁盤】的問話框，讓使用者根據(jù)自己電腦的情形，來決定要連接的網(wǎng)絡(luò)磁盤要映射到自己的那一個(gè)磁盤？要中斷的又是那一個(gè)對(duì)應(yīng)的磁盤？
    請(qǐng)?jiān)诼暶鲄^(qū)中加入以下聲明及模組：
    Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd _
    As Long, ByVal dwType As Long) As Long
    Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _
    (ByVal hwnd As Long, ByVal dwType As Long) As Long
    Sub ShowMapDrives(hwnd As Long)
    WNetConnectionDialog hwnd, 1
    End Sub
    Sub ShowUnMapDrives(hwnd As Long)
    WNetDisconnectDialog hwnd, 1
    End Sub
    ’程序中使用方式如下：
    Private Sub Command1_Click()
    ’出現(xiàn) 映射網(wǎng)絡(luò)磁盤 問話框
    ShowMapDrives Me.hwnd
    End Sub
    Private Sub Command2_Click()
    ’出現(xiàn) 中斷網(wǎng)絡(luò)磁盤 問話框
    ShowUnMapDrives Me.hwnd
    End Sub