| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск в папках и подпапках [D6, Win95/98, Win2k, WinXP]

Cash ©   (2003-11-30 00:39:00) 

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

---

Dimaxx   (2003-11-30 01:51:00) [1]

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

---

Dimaxx   (2003-11-30 01:50:00) [2]

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;


---

Наверх