Главная страница
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.045 c
8-1080728522
Tolik.R.V.
2004-03-31 14:22
2004.06.13
Help!!! Как вывести массив точек на Canvas.


3-1084950254
zorik
2004-05-19 11:04
2004.06.13
Сортировка


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


14-1085737051
kd75
2004-05-28 13:37
2004.06.13
Пятничные проблемы


1-1086094071
LittleGirly
2004-06-01 16:47
2004.06.13
Создание диаграммы в Excel-e