On Thu, 2 Feb 2006 00:02:27 +0200
"A.J. Venter" <[EMAIL PROTECTED]> wrote:
> I have been trying all night through a thousand variations on the theme of
>
> findfirst and findnext to try and come up with what should be a simple
> algorythm, start at a specified toplevel directory, and add every file
> below it with full path to a stringlist.
> Of course it does need to recurse subdirectories. Constantly failing, I
> tried googling but all I can find is delphi components which while they
> ought to be simple enough all throw access violations at runtime.
>
> Any advice ? Or perhaps somebody feels bored...
Maybe a little bit more:
ide/cleandirdlg.pas
function TCleanDirectoryDialog.SearchFilesToDelete(var List: TStrings):
boolean;
This will not only search recursively, it ahs an include and exclude
filters.
The central function is the sub function SearchInDirectory, which is
probably what you are searching.
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
