Форум: "Система";
Текущий архив: 2004.02.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;


---

← →
Dimaxx   (2003-11-30 01:51) [2]

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

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.02.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c