Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

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

 
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



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

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.043 c
3-1085032778
serg!
2004-05-20 09:59
2004.06.13
dbExpress


4-1083843987
kalishenko
2004-05-06 15:46
2004.06.13
Как узнать, завершился ли процесс или нет?


8-1079775966
*BES*
2004-03-20 12:46
2004.06.13
Dll в WinAmp


14-1085123501
Zheka
2004-05-21 11:11
2004.06.13
Литература по Мьютексам, семафорам, критическим секциям и т.д.


1-1085665362
Delph
2004-05-27 17:42
2004.06.13
TOpenDialog