Připojení a odpojení síťových disků

Chcete ve své aplikaci používat síťové disky a po ukončení aplikace je zase odpojit? Zde je návod, jak na to.

'Deklarace pro namapovani disku
Private Declare Function WNetAddConnection Lib "mpr.dll" _
Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, _
ByVal lpszPassword As String, ByVal lpszLocalName As String) _
As Long

'Deklarace pro odmapovani disku
Private Declare Function WNetCancelConnection Lib "mpr.dll" _
Alias "WNetCancelConnectionA" (ByVal lpszName As String, _
ByVal bForce As Long) As Long


Private Sub Form_Load()
  'parametry VzdalenyAdresar,Heslo,MistniDisk
  'sem doplnte spravne hodnoty!!
  h = WNetAddConnection("\ServerDir$", "pwd", "h:")
End Sub

Private Sub Form_Unload(Cancel As Integer)
 'Odmapovani disku
 h = WNetCancelConnection("h:", 0)
End Sub

Vzdálený adresář namapujeme jako místní disk pomocí funkce WNetAddConnection, mapování vypneme funkcí WNetCancelConnection