Verzeichnis rekursiv durchlaufen + Callback

[Didelphodon]

Hallo!

Mit dem folgenden Code könnt Ihr einen anzugebenden Pfad rekursiv durchlaufen. Eine zu "registrierende" Callback-Prozedur wird dann entsprechend aufgerufen.

Code: Alles auswählen

ProcedureDLL PBE_ScanPath(path.s, callbackProcedure.l) ; Scan the given path recursively and call callback (format dirId.l, path.s).
    Protected dirId.l 
    
    dirId = ExamineDirectory(#PB_Any, path, "*.*")
    If (dirId)
        While NextDirectoryEntry(dirId)
            If DirectoryEntryType(dirId) = #PB_DirectoryEntry_File
                CallFunctionFast(callbackProcedure, dirId, path)
            Else
                name.s = DirectoryEntryName(dirId)
                If (name <> "." And name <> "..")
                    CallFunctionFast(callbackProcedure, dirId, path)
                    PBE_ScanPath(path + DirectoryEntryName(dirId) + "\", callbackProcedure)
                EndIf
            EndIf
        Wend
        FinishDirectory(dirId)
    EndIf
EndProcedure

Viel Spaß,
Didel.

[Tafkadasom2k5]

Sorry, wenn ich so doof frage, aber wozu bräuchte ich denn zum Beispiel die Callback?

Zum ANzeigen des aktuellen Dateinamens in PB? Ich meine, wenn ich nicht unbedingt Threads nutze, dann bekomme ich mit den PB-Internen Befehlen doch auch kein "Fenster" zustande, welches mir den Progress anzeigt..?

ODer steh ich gerade voll aufm Schlauch?

Mit WinAPI und Callbacks wäre das natürlich was Anderes..!

Gr33tz
Tafkadasom2k5

[Didelphodon]

Die Möglichkeit eines Callbacks separiert die Behandlung der eigentlichen Information (also hier des effektiven Eintrages) vom Algorithmus des rekursiven Durchlaufens. => Clean Code also, und damit modular einsetzbar.

[HeX0R]

ProcedureDLL() ... hmm... ich denke, wenn du das tatsächlich in eine DLL packen willst, kann der Callback (so er im aufrufenden Hauptprogramm sitzt) mit dirId nichts anfangen.

[Didelphodon]

@hexor: Hab das Ding aus meiner PBE-Library rausgenommen und vergessen das DLL wegzunehmen , aber bei mir funktionierts als PB-Lib ausgezeichnet.

[HeX0R]

Als Lib sollte es funktionieren nicht aber als eigenständige DLL.

[Didelphodon]

Ist ja (vom Copy/Paste-Fehler "DLL" abgesehen) auch nur als "normaler" Code gepostet.

[AND51]

Deinen Code könnte man noch deutlich schneller machen... Ganz einfach durch Nutzung des Schlüsselwortes 'Continue' an den richtigen Stellen...

[MVXA]

Da hat aber jemand das Handbuch für Assembler gelesen. Da hat AND51
ausnahmsweise mal recht .

[Didelphodon]

Deinen Code könnte man noch deutlich schneller machen... Ganz einfach durch Nutzung des Schlüsselwortes 'Continue' an den richtigen Stellen...

Und wo? - Es wird doch keine Zeile unnötig ausgeführt??!