Microsoft Access Programmierrezepte

R8.18 Den UNC-Namen eines Netzlaufwerks ermitteln

Aufgabe

Sie möchten den Freigabenamen – auch als UNC (Universal Naming Convention) bezeichnet – eines Laufwerks ermitteln.

Lösung

Die API-Funktion WNetGetConnection hilft Ihnen weiter.

Oberfläche

Für den Test brauchen wir lediglich ein Bezeichnungsfeld und eine Befehlsschaltfläche.

Quelltext

Wir binden zunächst die benötigte API-Funktion ein:

Option Explicit

Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
        (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

Die eigentliche Funktion zum Ermitteln des UNC:

Public Function GetUNC(Drive As String) As String Dim RemoteName As String, RemoteNameSize As Long RemoteNameSize = 255 RemoteName ...