MAPEAMENTO DE REDE

ELAN 26/07/2005 14:19:51
#96069
Pessoal, peguei este código, mas simplesmente ele não funciona e também não dá erro, estou usando o Windows 2000, alguém pode dizer se ele roda normalmente nesta plataforma ?

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal _
lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName _
As String) As Long
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
(ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName _
As Long) As Long
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" _
(ByVal lpszName As String, ByVal bForce As Long) As Long

Dim Caminho As String, Unidade as String
Caminho = "\\Computador\Caminho"
Unidade = "I:"

'Realiza conexão
WNetAddConnection Caminho , "Se tiver senha, digite á aqui", unidade

'Consulta caminho de uma determinada conexão, _
'neste caso, na variável caminho será armazenado o local do caminho _
'atual ref. a unidade
WNetGetConnection Unidade, Caminho, 255

'Desconecta
WNetCancelConnection Unidade, True

Obrigado por qualquer comentário

Silvano
USUARIO.EXCLUIDOS 28/07/2005 13:07:02
#96410
Esta que vc usou é para Win 98

Tente assim

  
Private Declare Function WNetAddConnection2 Lib "mpr.dll" _
  Alias "WNetAddConnection2A" (lpNetResource As NETCONNECT, _
  ByVal lpPassword As String, ByVal lpUserName As String, _
  ByVal dwFlags As Long) As Long


Public Function MapDrive(LocalDrive As String, _
  RemoteDrive As String, Optional UserName As String, _
  Optional Password As String) As Boolean

'Example:
'MapDrive "Q:", "\\RemoteMachine\RemoteDirectory", _
'"MyLoginName", "MyPassword"

   Dim NetR As NETCONNECT

   NetR.dwScope = RESOURCE_GLOBALNET
   NetR.dwType = RESOURCETYPE_DISK
   NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
   NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
   NetR.lpLocalName = Left$(LocalDrive, 1) & ":"
   NetR.lpRemoteName = RemoteDrive
   MapDrive = (WNetAddConnection2(NetR, UserName, Password, _
       CONNECT_UPDATE_PROFILE) = 0)
   

End Function
'Para chamar a funçao
Call MapDrive(Unidade, Caminho)
Tópico encerrado , respostas não são mais permitidas
Voltar