Поиск в папках и подпапках

← →
Cash © (2003-11-30 00:39) [0]

Вешчь такая: при запуске проги, она должна посмотреть все папки, подпапки, подподпапки(и т.д.), сидящие в каталоге этой самой проги, на предмет интересующих меня файлов. Поиск по расширеню, имени, дате {создания} файла. И в конце концов вывести данные о найденых файлах (ListBox, ListView): имя и путь, чтобы при желании можно было удалить, открыть и т.д. Ожидаю код.:)

← →
Dimaxx © (2003-11-30 01:50) [1]

procedure SearchTree(path:string; var Files:TStrings); procedure ScanPath(Path: string); var data: TSearchRec; ds: longint; FoundFiles: tstringlist; begin if (Path[length(Path)] = "\") then delete(Path,length(Path),1); FoundFiles:=tstringlist.create; ds:=findfirst(Path+"\*.*",faAnyFile,data); while ds=0 do begin if (data.attr and faDirectory = faDirectory) then begin if (data.name <> ".") and (data.name <> "..") then begin if fRecursePaths then ScanPath(Path+"\"+data.name); if fSavePaths then FoundFiles.add(Path+"\"+data.name); end; end else FoundFiles.add(Path+"\"+data.name); ds:=findnext(data); end; findClose(data); files.addstrings(FoundFiles); FoundFiles.Free; end; begin scanPath(path); end;

Сначала сформируй список, а далее сам выбирай что добавлять.

Поиск в папках и подпапках Найти похожие ветки