Problema mapare drive, vb6

Salut!
am realizat de curand un proramel in care mapez un drive, copii de pe el un folder si dupa il demapez. pe unele ssiteme functioneaza pe altele nu .
in mod normal (cand nu ) el trebuie sa mapeze, daca nu gaseste driv-ul ce trebuie mapat ar trebui sa se inchide. Pe sistemele care nu functioneaza, il pornesc, si cand apas butonul de actualizare se inchide.
Daca aveti vre-o idee unde este problema va rog sa ma ajutati

Multumesc!

dupa mai multe "sapaturi" dau vina pe faptul ca functia "WNetAddConnection" nu are parametru pentru username, sau nu stiu eu sa il declar. Deci, ce functie sa folosesc unde sa specific si username si parola pentru mapare?

Multumesc!

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

· lpRemoteName
Points to a null-terminated string that specifies the network resource to connect to.

· lpPassword
Points to a null-terminated string that specifies the password to be used to make a connection. This parameter is usually the password associated with the current user.
If this parameter is NULL, the default password is used. If the string is empty, no password is used.

· lpLocalName
Points to a null-terminated string that specifies the name of a local device to be redirected, such as F: or LPT1. The case of the characters in the string is not important. If the string is NULL, a connection to the network resource is made without redirecting the local device.

Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long

Const WN_SUCCESS = 0 ' The function was successful.
Const WN_NET_ERROR = 2 ' An error occurred on the network.
Const WN_BAD_PASSWORD = 6 ' The password was invalid.
Function AddConnection(MyShareName As String, MyPWD As String, UseLetter As String) As Integer
	On Local Error GoTo AddConnection_Err
	AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
AddConnection_End:
	Exit Function
AddConnection_Err:
	AddConnection = Err
	MsgBox Error$
	Resume AddConnection_End
End Function

Function CancelConnection(DriveLetter As String, Force As Integer) As Integer
	On Local Error GoTo CancelConnection_Err
	CancelConnection = WNetCancelConnection(DriveLetter, Force)
CancelConnection_End:
	Exit Function
CancelConnection_Err:
	CancelConnection = Err
	MsgBox Error$
	Resume CancelConnection_End
End Function


Private Sub Form_Load()
   
	'to add a connection call by:
	variable = AddConnection(<SharePath>, <Password>, <DriveLetter>)
	'To cancel a connection type:
	varible = CancelConnection(<SharePath, <Force>)
End Sub

Edited by Sorin Nedelcu, 23 November 2010 - 13:55.

Salut,
Numele meu este Alexandru Cristian. Am intrat pe forumul vostru ptr ca am vevoie de ajutor . Am un program facut in Visual Basic si as vrea sa  fac cateva modificari !! Dar nu stiu , ma poti ajuta ? Evident contra cost . Multumesc mult . Id-ul meu de mess este urmatorul : [email protected]