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

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)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.