CodeItBetter Programming Another VB Programming Blog

'Network - How to Disconnect Network Drive
Option Explicit
 
Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal _
    lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
 
Public Function DisconnectIt(ByVal sDriveLetter As String, _
    Optional ByVal bDisconnectOpenFiles As Boolean = True)
'Inputs  - sDriveLetter - Drive letter which needs to be disconnected
'          bDisconnectOpenFiles - whether to disconnect the drive if there are files open on it.
'                               - True  - disconnect the drive if there are files opened
'                               - False - not to disconnect the drive if the files are opened
'Returns - True  - if Drive is disconnected
'          False - if Drive is not disconnected
'Usage   - MsgBox DisconnectIt("Q:", True)
    DisconnectIt = WNetCancelConnection(sDriveLetter, bDisconnectOpenFiles)
End Function