Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0602: Eine Datei suchen mithilfe der SearchTreeForFile Funktion

VB 5/6-Tipp 0602: Eine Datei suchen mithilfe der SearchTreeForFile Funktion

 von Konrad Doblander

Schwierigkeitsgrad:

Verwendete API-Aufrufe: SearchTreeForFile

Download: Download des Beispielprojektes [2,16 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"


' Datei rekursiv suchen
Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
        ByVal RootPath As String, ByVal InputPathName As String, _
        ByVal OutputPathBuffer As String) As Long
        
Const MAX_PATH = 160

' rekursive Dateisuche
Public Function FileFind(ByRef hFileName As String, _
    Optional ByVal hPart As String = "C:\") As String
    
    Dim rApi As Long
    Dim hPfad As String
    
    On Error Goto Fehler
    Err.Clear
    
    ' keine Datei übergeben
    If Len(Trim$(hFileName)) = 0 Then Err.Raise 75
    
    ' ZielPfad vorbereiten
    hPfad = String(MAX_PATH, 0)
    
    ' API-Aufruf
    rApi = SearchTreeForFile(hPart, hFileName, hPfad)
    
    ' gefunden ?
    If rApi = 0 Then Err.Raise 76
    
    ' Rückgabewert
    FileFind = Left(hPfad, InStr(hPfad, Chr(0)) - 1)

    Exit Function
Fehler:

    Err.Clear
    FileFind = ""
End Function

Private Sub Command1_Click()
    MsgBox "Notepad wurde gefunden in: " & FileFind("notepad.exe", "C:\Windows\")
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.