Visual Basic - Error WNetAddConnection

Life is soft - evento anual de software empresarial
 
Vista:

Error WNetAddConnection

Publicado por Maria (24 intervenciones) el 07/01/2005 09:42:22
Hola!
Estoy intentando usar la API WNetAddConnection en el siguiente código:
MyShareName=\"\\\\Maria\"
MyPWD=\"administrador \"
UseLetter=\"C:\")
AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
Pero el valor de AddConnection=67
¿Què debo hacer para que la conexión se buena?Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error WNetAddConnection

Publicado por Cecilia Colalongo (3116 intervenciones) el 07/01/2005 10:34:07
En: http://www.mentalis.org/apilist/WNetAddConnection.shtml tienes la documentación y un ejemplo.

Los parámetros son: el recurso por ejemplo: "\\Servidor\Carpeta", la clave de acceso a ese recurso y la letra de unidad local donde se conecta que no sería "C" porque ya existe localmente, por ejemplo puede ser "F" si no existe.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error WNetAddConnection

Publicado por Benjo (679 intervenciones) el 09/01/2005 04:56:09
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 ' La función se ejecutó correctamente
Const WN_NET_ERROR = 2 ' un error ha ocurrido en la Red
Const WN_BAD_PASSWORD = 6 ' El password es inválido

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_Err:
AddConnection = Err
MsgBox Err.Description
End Function
Function CancelConnection(DriveLetter As String, Force As Integer) As Integer
On Local Error GoTo CancelConnection_Err
CancelConnection = WNetCancelConnection(DriveLetter, Force)
CancelConnection_Err:
CancelConnection = Err
MsgBox Err.Description
End Function
Private Sub Form_Load()
variable = AddConnection(<SharePath>, <Password>, <DriveLetter>)
'Así se cancela la conexión
variable = CancelConnection(<SharePath, True) 'con true se fuerza el cierre
End Sub
Igual también existe la API WNetAddConnection2 cuyo desarrollo es similar pero se realiza en forma indirecta mediante una estructura.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error WNetAddConnection

Publicado por Anonimo (37 intervenciones) el 09/01/2005 11:39:16
Y que diferencia tiene con la otra respuesta?????????????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar