VB.Net Tutorial/Windows/Network drive

Connect to network drive

<source lang="vbnet">Imports System.Runtime.InteropServices public class NetworkDriveConnectionDialog

     Const RESOURCETYPE_DISK As Short = 1
   
     Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer

   Public Shared Sub Main
       WNetConnectionDialog(0, RESOURCETYPE_DISK)
   
   End Sub

End Class</source>

Discocnnect the network drive

<source lang="vbnet">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</source>