Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 21.11.02 |
Prüfen, ob ein Pfad ein Netzpfad ist Die Funktion Check4NetPath prüft, ob es sich bei einer Pfadangabe um ein lokales oder ein Netzwerkverzeichnis handelt. | ||
Autor: Roland Wutzke | Bewertung: | Views: 16.930 |
www.vb-power.net | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit der Funktion CheckNetPath können Sie mit nur wenigen Zeilen feststellen, ob sich der angegebene Pfad auf einem anderen Rechner/Server innerhalb des Netzwerkes befindet. Dabei ist es gleich, ob der Übergabestring als UNC-Pfad oder als gemapptes Laufwerk mit oder ohne Pfadangabe übergeben wird.
Legen Sie in einem Modul folgenden Code an:
' benötigte API-Deklaration Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _ Alias "PathIsNetworkPathA" ( _ ByVal pszPath As String) As Long
' ********************************************************** ' Benötigt: Win2000/XP, WinNT4 mit IE4 oder höher ' Win98 oder höher, Win95 mit IE4 oder höher ' ********************************************************** Public Function CheckNetPath(sPath As String) As Boolean CheckNetPath = CBool(PathIsNetworkPath(sPath)) End Function
Beispiel:
Überprüfen Sie, ob Ihre Anwendung im Netzwerk läuft.
If CheckNetPath(App.Path) Then MsgBox "Anwendung läuft im Netzwerk", _ vbInformation + vbOKOnly Else MsgBox "Anwendung läuft auf dem lokalen PC", _ vbInformation + vbOKOnly End If
Hinweis:
Die Funktion prüft nicht, ob der Pfad / Ordner auch tatsächlich existiert!