Conectar / Desconectar Unidad de Red

Estas son las API’s y las declaraciones necesarias para poder conectarse a una unidad de red.

Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, _
         ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, _
         ByVal dwFlags As Long, ByVal fForce As Long) As Long

Type NETRESOURCE
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    lpLocalName As String
    lpRemoteName As String
    lpComment As String
    lpProvider As String
End Type
Public Const RESOURCETYPE_ANY = &H0
Public Const RESOURCETYPE_DISK = &H1
Public Const RESOURCETYPE_PRINT = &H2
Public Const RESOURCETYPE_UNKNOWN = &HFFFF

Sub ConectarUnidadRed(Unidad As String)
     Dim Disco As NETRESOURCE, Res As Long

     Disco.lpRemoteName = Unidad 'Dispositivo al que conectarse en formato UNC
     Disco.dwType = RESOURCETYPE_DISK ' Tipo de dispositivo
     Disco.lpLocalName = UnidadDisponible ' Esta línea la sustituyes por la letra que necesites "F:"
     Respuesta = WNetAddConnection2(Disco, "", "", 0)
End Sub

Sub DesconectarUnidadRed(Unidad As String)
     WNetCancelConnection2 Unidad, 0, True ' Puedes enviar como Unidad un UNC o una normal "F:"
End Sub

Publicado en es.comp.lenguajes.visual-basic por MavericK

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s