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

[AppData]

min@y™, можно пример не большой. а то я полез!

DateTimeToStr(GetFileDateTime('C:\t ext.txt'));

function FileTimeToDateTime(FileTime: TFileTime): TDateTime;
var
  SystemTime: TSystemTime;
begin
  FileTimeToLocalFileTime(FileTime, FileTime);
  FileTimeToSystemTime(FileTime, SystemTime);
  Result := SystemTimeToDateTime(SystemTime);
end;

procedure GetFileInfo(const FileName: String;
  out CreationTime, ModificationTime, LastAccessTime: TDateTime);
var
  FileAttributeData: TWin32FileAttributeData;
begin
  ZeroMemory(@FileAttributeData, SizeOf(TWin32FileAttributeData));
  GetFileAttributesEx(PAnsiChar(FileName), GetFileExInfoStandard, @FileAttributeData);
  CreationTime := FileTimeToDateTime(FileAttributeData.ftCreationTime);
  ModificationTime := FileTimeToDateTime(FileAttributeData.ftLastWriteTime);
  LastAccessTime := FileTimeToDateTime(FileAttributeData.ftLastAccessTime);
end;    }

function GetFileDateTime(FileName: string): TDateTime;
var
  intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;

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

через findfirst вернет все в одной структуре.

[min@y™]

можно пример не большой. а то я полез!

Пример чего?

[Stilet]

можно пример не большой. а то я полез!

Попробую внести свой вклад, раз скриптами ты упоросто не желаешь работать:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  contnrs, windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }
  TFileList=class
    FileProperty:TSearchRec;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private declarations }
  public
    Files:TObjectList;
    { public declarations }
  end;
Const
  PathFrom='d:\1\';   //Откуда
  PathTo='d:\1\0\';   //Куда
var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var sr:TSearchRec;
begin
 //Ищем в получателе, составляя список уже имеющихся файлов
 Files:=TObjectList.create(true);
 if FindFirst(PathTo+'*.',faAnyFile,sr)=0 then repeat
  if (sr.Attr and faAnyFile)<>0 then begin
    with TFileList(Files[Files.Add(TFileList.Create)]) do begin
     FileProperty:=sr;
    end;
  end;
 until FindNext(sr)<>0;
 FindClose(sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec; i:integer;   Found,dateDiff:Boolean;
begin
 //Ищем в источнике файлы
 if FindFirst(PathFrom+'*.',faAnyFile,sr)=0 then repeat
  if (sr.Attr and faAnyFile)<>0 then begin
   Found:=false;datef:=false;
  //Найденный файл ищем в списке заранее найденного в каталоге-получателе
   for i:=0 to Files.Count-1 do begin
    with TFileList(Files[i]) do begin
     //Если имя совпадает и даты изменения разные
     if (FileProperty.Name=sr.Name) then begin
       Found:=true;
        dateDiff:=(FileProperty.FindData.ftLastWriteTime.dwHighDateTime<>sr.FindData.ftLastAccessTime.dwHighDateTime)or
                 (FileProperty.FindData.ftLastWriteTime.dwLowDateTime<>sr.FindData.ftLastAccessTime.dwLowDateTime)
      // Считаем что нашли то что нуна копирнуть
       Break;
     end;
    end;
   end;

   if (not Found)or dateDiff then begin
    //Копируем
    windows.CopyFile(PChar(PathFrom+sr.Name),PChar(PathTo+sr.Name),false);
    // и Запоминаем в список скопированное
    with TFileList(Files[Files.Add(TFileList.Create)]) do begin
     FileProperty:=sr;
    end;
   end
  end;

 until FindNext(sr)<>0;
 FindClose(sr);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Files.Free;
end;

end.

Пояснения требуются?

Минздрав++ предупреждает!: Копипастэ вредит вашему здоровью.

[AppData]

если только

{$mode objfpc}{$H+}

поможете? )) у меня Delphi 7

а то я убрал

// {$mode objfpc}{$H+}

проект скомпилировался, но ничего не происходит. вообще! нажимаю. нет ошибок и не работает!

 if FindFirst(PathFrom.Text+'*.',faAnyFile,sr)=0 then repeat

сделал ..

  Form1.Memo1.Lines.Add(PathFrom + SR.Name);

а он мне показал только

C:\PathFrom\.
C:\PathFrom\..

хотя там есть файлы

[phomm]

Сказали же:

Сообщение от Stilet

Минздрав# предупреждает!: Копипастэ вредит вашему здоровью.

Обработчики назначили ?

[AppData]

phomm, всмысле?!

[phomm]

Почитайте-ка учебный материал, коли такие простые вещи вызывают затруднение.
Советую http://delphikingdom.com/lyceum/seminar.asp?ID=6
Вкратце, Вашу проблему должны решить двойные клики по пустому месту на форме и по кнопке.

[AppData]

phomm, очень смешно! я думал ты что то имел другое ввиду. и все же не работает! в чем может быть проблема?!
phomm проверь сам и убедись в этом..

задача:

1. найти измененные файлы. и скопировать их.
2. если есть новые, скопировать тоже..


НЕ, я понимаю то что программировать должен я сам. но я не прощу сделать за меня всю работу. я только прощу помочь мне в этом коде. мог бы сам. не писал бы сюда! поверьте

[Stilet]

phomm проверь сам и убедись в этом..

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