PureBasic Forums - English

Code: Select all

NR.NETRESOURCE

LocalName.s = "Q:"                      ; Change to your desired device name
RemoteName.s = "\\TERRY\C:\PUREBASIC"   ; Change to your desired path, local or remote

NR\dwType =  #RESOURCETYPE_DISK
NR\lpLocalName  = @LocalName
NR\lpRemoteName = @RemoteName

; Make the connection -------------------------------------
; ------ (ptr to NETRESOURCE structure, password, username, flag = 0 or #CONNECT_UPDATE_PROFILE)	
If WNetAddConnection2_(@NR,"","",#Null) = #NO_ERROR
  ; Have a look... go on...
  MessageRequester ("Cool!", "Go verify that the drive is now in My Computer" + Chr(10) + "Then come back and click OK", #MB_ICONINFORMATION)
Else
  MessageRequester ("Drat!", "Couldn't connect -- check paths and/or network", #MB_ICONERROR)
EndIf
;
;  Do whatever
;
; Remove assigned connection ------------------------------
; ------ (ptr to resource name, flag - 0 or #CONNECT_UPDATE_PROFILE, #TRUE (force disconnect) or #FALSE (fail if open files or jobs)
If WNetCancelConnection2_(@LocalName,0, #True) = #NO_ERROR 
  MessageRequester ("Cool!", "Disconnected successfully", #MB_ICONINFORMATION)
Else
  MessageRequester ("Drat!", "Couldn't disconnect -- remove connection manually", #MB_ICONERROR)
EndIf 
End