Guía para escribir código inmantenible

Destacado

¿Quieres conservar siempre tu trabajo? ¿sabes cómo hacerte imprescindible en tu empresa?

Sigue esta guía para escribir código inmantenible; es buenísima. Muchas gracias Lluís por pasarme el enlace.

Anuncios

Función para mapear unidades de red en Visual Basic 6 (VB6)

Función de Visual Basic 6 para mapeo de unidades de red (será necesario sustituir las cadenas “usuario_mapeo” y “pwd_usuario_mapeo” por el nombre de usuario y la contraseña que queramos utilizar para el mapeo, o bien añadirlos como parámetros a la llamada de la función) :

Public Function fMapearUnidadDeRed(pLetraUnidad As String, pRutaMapear As String) As Boolean

‘ Mapea una ruta (pRutaMapear) en la Unidad especificada por pLetraUnidad.
‘ Manel Beltrán (beltrixx) 2006

Dim fs As New Scripting.FileSystemObject
Dim bRetorno As Boolean
”Dim ntwork As New WshNetwork
Dim ntwork As Object
Dim msg As String
Dim iResp As Integer

bRetorno = True

Set ntwork = CreateObject(“WScript.Network”)

If InStr(pLetraUnidad, “:”) = 0 Then
pLetraUnidad = pLetraUnidad & “:”
End If

On Error GoTo error_mapeo

If fs.DriveExists(pLetraUnidad) Then
‘ El mapeo ya existe :
iResp = MsgBox(“El mapeo (” & pLetraUnidad & “) ya existe. ¿Desea utilizar el existente?”, vbYesNo)
If iResp = vbYes Then
bRetorno = True
Else
ntwork.RemoveNetworkDrive pLetraUnidad
ntwork.MapNetworkDrive pLetraUnidad, pRutaMapear, “True”, “usuario_mapeo”, “pwd_usuario_mapeo”
End If
Else
‘ El mapeo no existe previamente : lo intento realizar.
ntwork.RemoveNetworkDrive pLetraUnidad
ntwork.MapNetworkDrive pLetraUnidad, pRutaMapear, “True”, “usuario_mapeo”, “pwd_usuario_mapeo”
End If

fMapearUnidadDeRed = bRetorno
Exit Function

error_mapeo:

msg = “Hubo el siguiente problema mapeando la unidad de red (” & pLetraUnidad & “) :” & vbCrLf
msg = msg & Err.Description & vbCrLf
msg = msg & “Es posible que si ya existe, se esté utilizando actualmente.”
MsgBox msg, vbCritical
Err.Clear
bRetorno = False
fMapearUnidadDeRed = bRetorno

End Function