Datei in vorgegebenen Systempfaden suchen Mit der WinAPI SearchPath ein Kinderspiel - das Durchsuchen der Systempfade nach einer bestimmten Datei.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.558
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie möchten wissen, in welchem Verzeichnis sich NOTEPAD.EXE befindet? Oder der Windows-Explorer? Oder die Visual Basic Laufzeitdatei MSVBVM60.DLL?

Oder: Sie möchten einfach alle in der Umgebungsvariable PATH festgelegten Ordner nach einer bestimmten Datei durchsuchen.

Das alles ist mit der API-Funktion SearchPath ein Kinderspiel.

' Deklaration
Private Declare Function SearchPath Lib "kernel32" _
  Alias "SearchPathA" ( _
  ByVal lpPath As String, _
  ByVal lpFileName As String, _
  ByVal lpExtension As String, _
  ByVal nBufferLength As Long, _
  ByVal lpBuffer As String, _
  ByVal lpFilePart As String) As Long

Erläuterung:
Die SearchPath-Funktion durchsucht das in "lpPath" angegebene Verzeichnis nach einer bestimmten Datei. Wird für "lpPath" jedoch ein Nullstring angegeben, werden folgende Verzeichnisse durchsucht:

1. das Anwendungsverzeichnis, in dem sich die Anwendung befindet (App.Path)
2. das aktuelle Verzeichnis (CurDir)
3. das Windows/Systemverzeichnis (SYSTEM bzw. SYSTEM32 unter NT/2k/XP)
4. unter WinNT/2k/XP: zusätzlich das 16-Bit SYSTEM-Verzeichnis
5. das Windowsverzeichnis
6. alle Verzeichnisse aus der Umgebungsvariable PATH

Welche Pfade die Umgebungsvariable enthält, kann man über folgende Anweisung ermitteln:

MsgBox Environ("PATH")

Um nun z.B. zu ermitteln, in welchem Verzeichnis sich die MSVBVM60.DLL befindet, einfach folgenden Aufruf verwenden:

Dim sFile As String
DIM nResult As Long
Dim sBuffer As String
 
' Datei, nach der gesucht werden soll
sFile = "MSVBVM60.DLL"
 
' Buffer für die Rückgabe des Verzeichnisses
Const MAX_PATH = 260
sBuffer = Space$(MAX_PATH)
 
' Suchvorgang starten...
nResult = SearchPath(vbNullString, sFile, "", Len(sBuffer), _
  sBuffer, vbNullString)
 
If nResult > 0 Then
  ' Datei gefunden
  MsgBox "Pfad: " & Left$(sBuffer, nResult)
Else
  MsgBox "Datei nicht gefunden!"
End If