Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Conectar una unidad de red con vba

792 views
Skip to first unread message

Albertosh

unread,
May 21, 2009, 10:25:12 AM5/21/09
to
Hola a todos,

Un formulario que tengo tiene que dejar unos logs en una carpeta de un
servidor de mi red,. Lo quiero hacer a traves de una unidad de red,
mapeandola la primera vez. No tengo ni idea de como mapear la carpeta desde
el c�digo vba de mi access 2003. o podria hacer a mano, pero el usuario que
lo va a utilizar no quuiero que sepa usuarios, contrase�as,.. por eso lo
quiero integrar en el c�digo.

�Me podeis ayudar?

Un saludo


Emilio

unread,
May 21, 2009, 12:13:17 PM5/21/09
to
--------------------------------------------------------------------------
�Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvi� o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
puedes hacerlo mediante VBS mediante DOS con Net Use

Esta funci�n lo hace con VBS

Public Function MapeaUnidadRed(strLetra As String, strRuta As String,
Optional strUsuario As String, Optional strPassword As String) As Boolean
Dim WshNetwork As Object

If Not Right(strLetra, 1) = ":" And Len(strLetra) = 1 Then strLetra =
strLetra & ":"
Set WshNetwork = CreateObject("WScript.Network")
If Nz(strUsuario, vbNullString) = vbNullString Then
WshNetwork.MapNetworkDrive strLetra, strRuta
Else
WshNetwork.MapNetworkDrive strLetra, strRuta, , strUsuario, strPassword
End If
MapeaUnidadRed = True

Set WshNetwork = Nothing
End Function ' MapeaUnidadRed

Saludos a tod@s
Emilio [MS-MVP Access 2006/9]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Albertosh" <albert...@hotmail.con> escribi� en el mensaje de noticias
news:%23hdy1$h2JHA...@TK2MSFTNGP02.phx.gbl...

> __________ Informaci�n de ESET Smart Security, versi�n de la base de
> firmas de virus 4094 (20090521) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>


__________ Informaci�n de ESET Smart Security, versi�n de la base de firmas de virus 4094 (20090521) __________

ESET Smart Security ha comprobado este mensaje.

http://www.eset.com

Albertosh

unread,
May 21, 2009, 12:28:39 PM5/21/09
to
Hola Emilio,

Muchas gracias de nuevo por una respuesta. Funciona de miedo, les paso el
user y la pass del directorio activo y se conecta a donde quiere.
"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribi� en el mensaje
news:urTkV8i2...@TK2MSFTNGP05.phx.gbl...

Emilio

unread,
May 21, 2009, 12:47:31 PM5/21/09
to
:-))

Saludos a tod@s
Emilio [MS-MVP Access 2006/9]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Albertosh" <albert...@hotmail.con> escribi� en el mensaje de noticias

news:%23FUA1Ej...@TK2MSFTNGP04.phx.gbl...

0 new messages