SearchTreeForFile-Funktion Diese Funktion sucht eine Datei in einem Verzeichnis, wobei sie auch alle vorhandenen Unterordner durchsucht.
Betriebssystem:  Win95, Win98, WinNT 4.0, Win2000, WinME	Views:  560

Deklaration:

Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
  ByVal RootPath As String, _
  ByVal InputPathName As String, _
  ByVal OutputPathBuffer As String) As Long

Beschreibung:
Diese Funktion sucht eine Datei in einem Verzeichnis, wobei sie auch alle vorhandenen Unterordner durchsucht.

Parameter:

RootPath	Erwartet das Startverzeichnis, in dem begonnen werden soll zu suchen.
InputPathName	Erwartet den Namen der gesuchten Datei.
OutputPathBuffer	Erwartet einen Puffer, der mit genügend Leerzeichen vorinitialisiert ist, um den kompletten Pfad der gefunden Datei zu empfangen.

Rückgabewert:
Ist die Funktion erfolgreich, so wird der Wert "1" zurückgegeben, andernfalls liefert die Funktion denWert "0".

Beispiel:

Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
  ByVal RootPath As String, _
  ByVal InputPathName As String, _
  ByVal OutputPathBuffer As String) As Long

' Durchsucht "c:\Windows" nach "Chord.wav"
Private Sub Command1_Click()
  Dim Retval As Long, TmpStr As String * 256
 
  ' Suche beginnen
  Retval = SearchTreeForFile("c:\windows", "Chord.wav", TmpStr)
  If Retval = 0 Then
    MsgBox "Es wurde keine Datei mit diesem Namen gefunden"
  Else
    MsgBox Left$(TmpStr, InStr(1, TmpStr, vbNullChar) - 1), ,  _
    "Gefundene Datei"
  End If
End Sub