AW: Netzlaufwerksbuchstaben mit VBA erstellen
26.05.2009 18:49:34
Nepumuk
Hi,
ich hätte da auch noch einen:
Option Explicit
Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" ( _
ByRef lpNetResource As NETRESOURCE, _
ByVal lpPassword As String, _
ByVal lpUserName As String, _
ByVal dwFlags As Long) As Long
Private Const RESOURCETYPE_DISK = &H1
Private Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type
Public Sub Add_Connection()
Dim udtNetResource As NETRESOURCE
Dim lngResult As Long
udtNetResource.lpRemoteName = "\\Hp-rechner\Reserve"
udtNetResource.lpLocalName = "U:"
udtNetResource.dwType = RESOURCETYPE_DISK
lngResult = WNetAddConnection2(udtNetResource, vbNullString, vbNullString, 0)
If lngResult <> 0 Then _
MsgBox "Verbindung zum Netzlaufwerk nicht möglich", vbCritical, "Fehler"
End Sub
Gruß
Nepumuk