title image


Smiley Du könntest dir das Laufwerk temporär im Makro zuweisen ...
Hi Wörti,



und nach Benutzung wieder trennen, dann bist du was die Programmierung betrifft unabhängig. Ich hatte mal einen so ähnlich gelagerten Fall und habe das Problem wie folgt gelöst:









Option Explicit



'Laufwerk verbinden

Private Declare Function WNetAddConnection2 Lib "mpr.dll" _

  Alias "WNetAddConnection2A" (lpNetResource As _

    NETRESOURCE, ByVal lpPassword As String, ByVal _

    lpUserName As String, ByVal dwFlags As Long) As Long



'Laufwerk trennen

Private Declare Function WNetCancelConnection2 Lib "mpr.dll" _

  Alias "WNetCancelConnectionA" (ByVal lpszName As String, _

  ByVal bForce As Long) As Long



'Deklarierung wird zum Netzlaufwerk verbinden genutzt.

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



Function Verbinden() As Boolean

Dim l As Variant

Dim NetzResource As NETRESOURCE

Dim RESOURCETYPE_DISK As Long

NetzResource.lpRemoteName = "\\Server\Freigabe"

NetzResource.lpLocalName = ""

NetzResource.dwType = RESOURCETYPE_DISK

  l = WNetAddConnection2(NetzResource, "Username", "Passwort", 0)

Verbinden = IIf(l = 0, True, False)

If Not Verbinden Then Exit Function

End Function



Sub Trennen()

Dim l As Variant

l = WNetCancelConnection2("\\Server\Freigabe", 1)

End Sub





Code eingefügt mit Syntaxhighlighter 4.0







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: