Форум: "Основная";
Текущий архив: 2004.06.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.028 c