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:     [ Jetzt bewerten ]	Views:  5.404
www.vb-power.net	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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!