COMANDO PARA MAPEAR UNIDADE DE REDE.

USUARIO.EXCLUIDOS 29/05/2007 11:53:44
#218669
Gostaria de saber se alguém conhece akgum código que possa ser usado para ampear uma unidade de rede.
DANIELCPAETE 29/05/2007 12:12:53
#218671 Resposta escolhida 
Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszstrPassword As String, ByVal lpszLocalName As String) As Long



Dim conectar as Long
strLocalDriveLetter = "Q:" 'Letra da unidade mapeada
strPassword = "" 'senha da rede, se necessário
strNetworkPathName = "\\servidor\pasta" 'caminho da unidade mapeada
conectar = WNetAddConnection(strNetworkPathName, strPassword, strLocalDriveLetter)
If conectar > 0 then
MsgBox "Erro no mapeamento"
' Escreva sua rotina no caso de falha...
End If
VBAPRENDE 29/05/2007 13:16:02
#218684
aqui no site tem exemplos peguei esse:

Private Declare Function WNetConnectionDialog Lib "mpr.dll" _
(ByVal hwnd As Long, ByVal dwType As Long) As Long

Private Sub Form_Load()
	x% = WNetConnectionDialog(Me.hwnd, 1)
End Sub



ele chama a tela
Tópico encerrado , respostas não são mais permitidas
Voltar