| Pregunta: | 20577 - CREAR UNIDADES DE RED DESDE CODIGO |
| Autor: | Raul Eduardo Diaz Watson |
| Quiero saber cual es el codigo en Visual Basic 6 para crear una unidad de red.
Estoy trabajando en una aplicacion que configura mi maquina para trabajar con un programa que necesita dos unidades de red, (M:\\Terror\subfiles1, F: \\Depredator\Subfiles) He estado buscando en las librerias de Visual Basic pero no encuentro nada. Cualquier pista o informacion que puedan darme sera de mucha ayuda Muchas Gracias | |
| Respuesta: | Ricardo Sierra |
| La respuesta anterior es buena pero tengo otra que es mas corta:
Ejecuta el siguiente BAT NET USE M: \\TERROR\SUBFILES /YES NET USE F: \\DEPREDATOR\SUBFILES /YES si el BAT se llamara CONECT.BAT entonces dentro de tu codigo en VB podes escribrir el siguiente comando para llamarlo: varTipoLong = shell("command.com CONECT.BAT /C",0) Y listo! ya estan los directorios mapeados a unidades de red. Saludos, | |
| Respuesta: | googer |
| 1.- Declarar las funciones
Public Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long Public Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long dim a as variant 2.- Funcion para conectar Function AddConnection(rutaconecto as String, password As String, letra As String) As Integer On Local Error GoTo AddConnection_Err AddConnection = WNetAddConnection(rutaconecto,password,letra) AddConnection_End: Exit Function AddConnection_Err: AddConnection = Err MsgBox error$ Resume AddConnection_End End Function 3.- Función para desconectar Function CancelConnection(letradesconecto As String, forzar As Integer) As Integer On Local Error GoTo CancelConnection_Err CancelConnection = WNetCancelConnection(letradesconecto, forzar) CancelConnection_End: Exit Function CancelConnection_Err: CancelConnection = Err MsgBox error$ Resume CancelConnection_End End Function Por lo que, para conectar a = AddConnection("\\Terror\Subfiles1", "", "M:") a = AddConnection("\\Depredator\Subfiles", "", "F:") Y para desconectar a = CancelConnection("M:", 0) a = CancelConnection("F:", 0) Tanto en un caso como en otro, vigila el valor que devuelve "a" para saber si ha habido un error o no. Besos a ellas y saludos a ellos. | |