Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB2005, VB2008, VB2010 | 30.03.12 |
Serverpfad eine Netzlaufwerks auslesen Mit diesem kleinen Tipp ist es möglich den realen Pfad eines Netzlaufwerks auszulesen. | ||
Autor: Dierk | Bewertung: | Views: 9.755 |
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)