Serverpfad eine Netzlaufwerks auslesen Mit diesem kleinen Tipp ist es möglich den realen Pfad eines Netzlaufwerks auszulesen.
Autor:   Dierk	Bewertung:     [ Jetzt bewerten ]	Views:  10.458
ohne Homepage	System:  WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgende Funktion gibt den vollständigen Netzwerkpfad zu einem übergebenen Netzlaufwerk zurück.

' API-Deklaration
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" ( _
  ByVal localName As String, _
  ByVal remoteName As System.Text.StringBuilder, _
  ByRef length As Integer) As Integer
 
Private Function GetNetPfad(ByVal Drive As String) As String
  Dim sName As New System.Text.StringBuilder(255)
  Try
    ' Laufwerksbuchstabe mit abschließenden Doppelpunkt
    Drive = Drive.Substring(0, 1) & ":"
    ' jetzt wird der Pfad ausgelesen
    WNetGetConnection(Drive, sName, 255)
  Catch ex As Exception
    Stop
  End Try
  Return sName.ToString
End Function</Code></pre>
 
<p>Beispielaufruf:</p>
<pre><code>Dim s As String = GetNetPfad("Z:")
MsgBox("Sererpfad: " & s, MsgBoxStyle.Information Or MsgBoxStyle.OkOnly)