vb@rchiv · Tipps & Tricks · Laufwerks-Pfad nach UNC-Pfad und umgekehrt

Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6

10.07.01

Laufwerks-Pfad nach UNC-Pfad und umgekehrt Zwei hilfreiche Routinen für die Umwandelung von UNC- nach Laufwerks-Pfaden und umgekehrt.
Autor: Jost Schwider	Bewertung:	Views: 35.347
www.vb-tec.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Sogenannte "UNC-Pfade" kommen immer dann ins Spiel, wenn Ressourcen im Netz (auf einem "File-Server") benutzt werden sollen. Einem öfter benötigtem Server-Verzeichnis wird der Einfachheit halber oft ein Laufwerk zugeordnet (z.B. als "Arbeitsgruppen-Laufwerk", im Beispiel W. Dann kann z.B. statt mit der unübersichtlichen UNC-Notation \\FileSvr2\WebAG\Infos\ einfach über ein "virtuelles" Laufwerk zugegriffen werden: W:\Infos\

Nachfolgend werden zwei Funktionen vorgestellt, welche gerade die Umwandlung zwischen UNC- und Laufwerks-Pfad erlauben.

Laufwerks- nach UNC-Pfad
Im Deklarationsteil eines Moduls wird folgende API-Funktion benötigt:

' zunächst die benötigte API-Deklaratione
Private Declare Function WNetGetConnectionA Lib "mpr.dll" ( _
  ByVal lpszLocalName As String, _
  ByVal lpszRemoteName As String, _
  cbRemoteName As Long) As Long

Die folgende Funktion nutzt die o.g. API-Routine, wobei der ggf. angehängte Pfad besonders behandelt wird. Wird ein unbekanntes Laufwerk angegeben, so wird eine entsprechende Fehlermeldung zurückgegeben (kann mit IgnoreErrors = True unterdrückt werden).

Public Function UNCPath(ByVal Path As String, _
  Optional IgnoreErrors As Boolean = False) As String
  Dim UNC As String * 512
 
  If Len(Path) = 1 Then Path = Path & ":"
  If Right$(Path, 1) <> "\" Then Path = Path & "\"
  If WNetGetConnectionA(Left$(Path, 2), UNC, Len(UNC)) Then
 
    ' API-Routine gibt Fehler zurück:
    If IgnoreErrors Then
      UNCPath = Path
    Else
      Err.Raise 5 ' Invalid procedure call or argument
    End If
 
  Else
 
    ' Ergebnis zurückgeben:
    UNCPath = Left$(UNC, InStr(UNC, vbNullChar) - 1) _
            & Mid$(Path, 3)
 
  End If
End Function

UNC- nach Laufwerks-Pfad
Die Umkehrfunktion benutzt die LogicalDrives-Funktion, um alle Laufwerke nach und nach in UNC umzuwandeln. Bei Übereinstimmung mit dem gesuchten UNC wird das entsprechende Ergebnis zurückgegeben. Existiert kein Laufwerk für den angegebenen UNC-Pfad, so wird eine entsprechende Fehlermeldung zurückgegeben (kann mit IgnoreErrors = True unterdrückt werden).

' zunächst die benötigten API-Deklarationen
Private Declare Function GetLogicalDriveStringsA Lib "kernel32" ( _
  ByVal nBufferLength As Long, _
  ByVal lpBuffer As String) As Long
 
Public Function LogicalDrives() As Collection
  Dim s As String * 128
  Dim i As Long
 
  ' API aufrufen:
  GetLogicalDriveStringsA Len(s), s
  i = InStr(s, vbNullChar & vbNullChar) ' Länge
 
  ' Collection füllen:
  Set LogicalDrives = New Collection
  For i = 1 To i Step 4
    LogicalDrives.Add Mid$(s, i, 2)
  Next i
End Function
 
' Ermittelt das Laufwerk für einen UNC-Pfad
Public Function DrivePath(ByVal Path As String, _
  Optional IgnoreErrors As Boolean = False) As String
  Dim Drive As Variant
  Dim UNC As String
 
  ' Alle Laufwerke durchsuchen:
  If Right$(Path, 1) <> "\" Then Path = Path & "\"
  For Each Drive In LogicalDrives <findfile.htm>()
    UNC = UNCPath(Drive, True)
    If InStr(1, Path, UNC, vbTextCompare) = 1 Then Exit For
  Next Drive
 
  If IsEmpty(Drive) Then
 
    ' Kein Laufwerk für UNC gefunden:
    If IgnoreErrors Then
      DrivePath = Path
    Else
      Err.Raise 5  'Invalid procedure call or argument
    End If
 
  Else
 
    ' Ergebnis zurückgeben:
    DrivePath = Drive & Mid$(Path, Len(UNC))
 
  End If
End Function

Anmerkung:
Dieser Tipp eignet sich gut als Ergänzung zu unserem Tipp:
Aufruf von Netzlaufwerk aus verhindern