Копирование только самых новых файлов

[AppData]

здравствуйте!

подскажите как сделать копирование только самых новых файлов.
backUp

скажем скопировал первый старт C:\files\ в D:\files\30.08.2014
изменился через пару часов, дней без разницы. файл внутри папки скажем sys.dll и уже 31.08.2014

[Stilet]

Можно через FindFirst() сделать поиск. Он возвращает описание файла (ну всмысле проход в цикле) в котором присутствует дата создания или дата модификации файла. Если допустим сравнивать ее с некой заранее запомненной где-то скажем в INI файле датой то можно отсеивать файлы по дате, и принимать только те у кого дата больше.
Умеешь пользоваться этой функцией?

[AppData]

Stilet, я был бы счастлив получить пример на то что сейчас было написано! + а если список большой. форматов и файлов

var
  Form1: TForm1;
  a1: TDateTime;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec;
    FindRes:Integer;
begin
ListBox1.Clear;
 a1 := StrToDate('01.08.2012');
 
FindRes:=FindFirst('D:\backup\*.*',faAnyFile,SR);
While FindRes=0 do
   begin
      if ((SR.Attr and faDirectory)=faDirectory) and
      ((SR.Name='.')or(SR.Name='..')) then
         begin
            FindRes:=FindNext(SR);
            Continue;
         end;
      if FileDateToDateTime(SR.Time)=a1 then // если у файла (каталога) дата создания равна a1
         begin
            FindRes:=FindNext(SR); // продолжить поиск
            Continue; // продолжить цикл
         end;
 
      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

[Человек_Борща]

Проще мониторить папку на наличие изменений. Не помню как называется, вроде DirectoryChangeNotification, как-то так

[AppData]

Действие: Изменение атрибутов файла. выводит 2 раза. можно как то укоротить в 1 раз?!

уважаемые программисты, подскажите или наведите на мысль. как лучше сделать! хочу сделать резерв. копирование данных.
и пока не запутался. подскажите как лучше сделать. вот приблизительная мысль на листе бумаги в Paint ))

[Stilet]

я был бы счастлив получить пример

Значит подскажу на твоем примере:

Var SR:TSearchRec;
    FindRes:Integer; PathFrom:String;
begin
ListBox1.Clear;
 a1 := StrToDate('01.08.2012');
 PathFrom:='Где искать файлы для бэкапирования';

FindRes:=FindFirst(PathFrom+'*.*',faAnyFile,SR);
While FindRes=0 do
   begin
      if ((SR.Attr and faDirectory)<>faDirectory) and
      ((SR.Name<>'.')and(SR.Name<>'..')) then
         begin
           windows.CopyFile(PChar(PathFrom+sr.name),PChar('D:\backup\'+sr.name),true);
         end;
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

И все. windows.CopyFile сама определит нужно ли копировать файл. Если такой существует - он перезаписываться не будет. Т.е. в бэкап-каталог будут попадать только файлы, которых там еще нет.

подскажите или наведите на мысль. как лучше сделать!

%

[AppData]

тогда уж лучше так..

function FullDirectoryCopy(SourceDir, TargetDir: string; StopIfNotAllCopied,
  OverWriteFiles: Boolean): Boolean;
var
  SR: TSearchRec;
  I: Integer;
begin
  Result := False;
  SourceDir := IncludeTrailingBackslash(SourceDir);
  TargetDir := IncludeTrailingBackslash(TargetDir);
  if not DirectoryExists(SourceDir) then
    Exit;
  if not ForceDirectories(TargetDir) then
    Exit;
  I := FindFirst(SourceDir + '*', faAnyFile, SR);
  try
    while I = 0 do
    begin
      if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        if SR.Attr = faDirectory then
          Result := FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME,
            StopIfNotAllCopied, OverWriteFiles)
        else if not (not OverWriteFiles and FileExists(TargetDir + SR.Name))
          then
          Result := CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir +
            SR.Name), False)
        else
          Result := True;
        if not Result and StopIfNotAllCopied then
          exit;
      end;
      I := FindNext(SR);
    end;
  finally
    SysUtils.FindClose(SR);
  end;
end;

вопрос, как сделать так чтобы он копировал измененные?! только новые. не старые. пусть это будет начиная от txt кончая exe

[Stilet]

как сделать так чтобы он копировал измененные?

Можно нескромный вопрос? А чем предложение с архиватором не устраивает?

[Аватар]

Как вариант
FileAge - получить время последнего изменения файлов как в источнике, так и в приемнике. Сравнить (можно преобразуя в нормальный TDateTime с помощью FileDateToDateTime) и копировать если в источнике больше чем в приемнике

[min@y™]

Предлагаю разбить задачу на 2 подзадачи.

1. Составление в памяти полного списка копируемых файлов с путями, размерами, атрибутами и временем последнего изменения. Пригодится также для вывода индикатора прогресса.

2. В цикле проверяем, есть ли файл с таким именем в месте, куда копируем, если нету, то просто сливаем туда копию (создав предварительно каталог, если требуется, функцией ForceDirectories()); если есть, то читаем время dest-файла с диска и сравниваем с временем source-файла, которое прицеплено к имени в списке в памяти, если dest-файл старше, переписываем его поверх файлом из списка, иначе - переходим к следующему файлу в списке.