Форум: "Система";
Текущий архив: 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