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() ’出现 映射网络磁盘 问话框 ShowMapDrives Me.hwnd
End Sub
Private Sub Command2_Click() ’出现 中断网络磁盘
问话框 ShowUnMapDrives Me.hwnd End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
