Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

Discocnnect the network drive

Imports System.Runtime.InteropServices Public Class GetPrinterPort       Const RESOURCETYPE_DISK As Short = 1       Const RESOURCETYPE_PRINTER As Short = 2            Private Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer     Public Shared Sub Main          Dim dwResult As Integer         'Discocnnect the network drive {RESOURCETYPE_DISK = 1}         dwResult = WNetDisconnectDialog(0, RESOURCETYPE_DISK)          End Sub End Class