поиск папок и файлов

← →
ALex1 (2004-05-29 19:58) [0]

Кто нибуть помогите написать программу которая нашла где находится папка МОИ ДОКУМЕНТЫ и в этои папке находила все файлы которые создали в этот день

← →
Cardinal © (2004-05-29 20:32) [1]

Путь к папке - CSIDL_COMMON_DOCUMENTS

Сканирование директориии:

function ScanDir(List: TStrings; StartDir: string; Mask: string = "*.*"): integer;
var
SearchRec : TSearchRec;
begin
result:=0;
if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\";
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
begin
List.Add(StartDir + extractfilename(SearchRec.Name));
inc(result);
end
else
if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
begin
List.Add(StartDir + SearchRec.Name + "\");
ScanDir(List,StartDir + SearchRec.Name + "\",Mask);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Дата файла - function FileAge(const FileName: string): Integer

поиск папок и файлов Найти похожие ветки