| Pregunta: | 35707 - CONECTAR UNIDAD A RED |
| Autor: | Adolfo Lopez |
| Quisiera saber si hay alguna manera de asignar una letra de unidad a un carpeta de red desde visual basic | |
| Respuesta: | Luis M. Mora. |
| Aqui Tienes el Codigo:
Private Const ERROR_SUCCESS = 0 Private Const ERROR_ALREADY_CONNECTED = 52& Private Const ERROR_UNSHARED_RESSOURCE = 67& Private Const ERROR_BAD_NET_NAME = 67& Private Const ERROR_ALREADY_ASSIGNED = 85& Private Const ERROR_BAD_DEVICE = 1200& Private Const ERROR_NOT_CONNECTED = 2250& Private Const ERROR_MORE_DATA = 234 Private Const ERROR_CONNECTION_UNAVAIL = 1201& Private Const ERROR_NO_NETWORK = 1222& Private Const ERROR_EXTENDED_ERROR = 1208& Private Const ERROR_NO_NET_OR_BAD_PATH = 1203& Dim Si As Boolean Dim RedVar As Boolean Dim SerialNum As Long, SysFlags As Long Dim retVal As Long, Complength As Long Dim VolBuff As String * 255, SysName As String * 255 Dim DrivePath As String Dim i As Integer Private Sub red() On Error Resume Next 'ignorar errores strCaminoAcceso = "\\maquina\c" strClaveAceso = "" strDrive = "W:" quePaso = WNetAddConnection(strCaminoAcceso, strClaveAceso, strDrive) Select Case quePaso Case ERROR_SUCCESS RedVar = True Case ERROR_NOT_CONNECTED RedVar = False Case ERROR_ALREADY_CONNECTED RedVar = False Case ERROR_NO_NETWORK RedVar = False Case ERROR_ALREADY_ASSIGNED RedVar = False Case ERROR_NO_NET_OR_BAD_PATH RedVar = False Case ERROR_UNSHARED_RESSOURCE RedVar = False Case ERROR_BAD_NET_NAME RedVar = False Case ERROR_BAD_DEVICE RedVar = False Case ERROR_MORE_DATA RedVar = False Case ERROR_CONNECTION_UNAVAIL RedVar = False Case ERROR_EXTENDED_ERROR RedVar = False End Select End Sub 'Para Desconectar Private Sub dESCONECTAR() resultado = WNetCancelConnection("G:", True) End Sub Saludos, si tienes Duda mandame un Correo | |