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:  15.139

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.