Поиск файлов по дате.

[Дмитрий mause]

Добрый вечер. Занимаюсь разработкой программы, в которой осуществляется поиск файлов (.txt), по заданной дате. В директории указаны года и месяца папок (например: C:\base\2011\01\....). Нужно по дате открыть нужный год и месяц, взять хранящиеся в ней файлы и сравнить их с другой такой же директорией (например: E:\base\2011\01\...), все файлы, которых будет нехватать во второй директории, добавить, а остальные не трогать. Прошу вашего великодушия и помощи, начинающему. Заступорился вот с этого момента:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    StatusBar1: TStatusBar;
    Button3: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
///////////////////////////Ïåðåâîäèì äàòó///////////////////////////////////////
procedure TForm1.FormActivate(Sender: TObject);
  begin
        ShortDateFormat:='dd.mm.yyyy';
          ComboBox1.ItemIndex:=StrToInt(Copy(DateToStr(Date),4,2))-1;
            Edit1.Text:=Copy(DateToStr(Date),7,4);
end;
/////////////////////////////////Êíîïêà âûõîäà//////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
  begin
    halt;
      close;
end;
////////////////////////////////////////////////////////////////////////////////
function PadL(s_InStr:string; i_Wide:integer; c_CHR:string):string;
begin
 while Length(s_InStr)<i_Wide
  do
   s_Instr:=c_Chr+S_Instr;
 Result:=s_Instr;
end;
////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
  var  i:integer;
        st1,st2,st3,st4:string;
  begin
  for i:=1 to 99
    do
    begin
      StatusBar1.SimpleText:='Îáðàáàòûâàåòñÿ ôàéëû'+IntToStr(i);
        st1:=LabeledEdit1.Text+Padl(IntToStr(i),4,'0')+'\'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+'\b'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+Padl(IntToStr(i),4,'0')+'.txt';
         st2:=LabeledEdit1.Text+Padl(IntToStr(i),4,'0')+'\'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+'\d'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+Padl(IntToStr(i),4,'0')+'.txt';
          st3:=LabeledEdit1.Text+Padl(IntToStr(i),4,'0')+'\'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+'\d'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+Padl(IntToStr(i),4,'0');
           st4:=LabeledEdit1.Text+Padl(IntToStr(i),4,'0')+'\'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+'\d'+Padl(IntToStr(comboBox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,1)+Padl(IntToStr(i),4,'0')+'.txt';
    if FileExists(st1) and FileExists(st2) 
     then

      begin

end;

  end;
 StatusBar1.SimpleText:='Êîïèðîâàíèå çàâåðøåíî';
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Заступорился вот с этого момента

Читать чужой код всегда сложнее, чем это кажется автору кода. С какого момента-то? Получения списка .txt файлов в директории?

[Дмитрий mause]

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

Читать чужой код всегда сложнее, чем это кажется автору кода. С какого момента-то? Получения списка .txt файлов в директории?

Да вы совершенно правы. Я задумался, что нужно, реализовать сравнение данных в папках, либо сравнение даты создания файлов? Либо искать другой выход из положения.

[Alex11223]

А зачем дата? Как я понял надо просто сравнить файлы в двух директориях и если во второй каких-то файлов нету, то скопировать их туда?
Как-то так можно имена файлов получить (из консольного проекта копипаст):

   
     var fs: TSearchRec;
     ...
     FindFirst('c:\*',faAnyFile,fs);
     repeat
       if  (Pos('.txt', fs.name)<>0) and (fs.name <> '.') and (fs.name <> '..')  then
       begin
          Writeln(fs.name);
       end;
     until FindNext(fs) <> 0;
     FindClose(fs);
     readln;

[Дмитрий mause]

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

А зачем дата?

А дата нужна чтобы выбирать нужный год и месяц в папках. Но это можно и в пути указать. Спасибо большое, что откликнулись, сделаю как вы посоветовали.

[Дмитрий mause]

Не могу сообразить, как осуществить копирование файлов, которые найдены в директории и отсортированны в FindFirst - е. Будьте любезны, помогите, ошибка в сравнение файлов (FindFirst).
procedure TForm1.Button2Click(Sender: TObject);

var fromFile,Tofile:string;
      i:integer;
      fs: TSearchRec;
    begin
      Application.ProcessMessages;
      for i:=1 to 99 do
    begin
      fromfile:=LabeledEdit1.Text+Padl(IntToStr(Combobox1.ItemIndex+1),2,'0')+'\'+Copy(Edit1.Text,4,0)+Padl(IntToStr(i),4,'0')+'.txt';
        tofile:=LabeledEdit2.Text+Edit1.Text+'\'+Padl(IntToStr(Combobox1.ItemIndex+1),2,'0')+'\'+Copy(Edit1.Text,4,0)+Padl(IntToStr(i),4,'0')+'.txt';
    if Fileexists(fromfile) then
      begin
          if not DirectoryExists(LabeledEdit2.Text+Edit1.Text+'\'+Padl(IntToStr(Combobox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,0))then
          ForceDirectories(LabeledEdit2.Text+Edit1.Text+'\'+Padl(IntToStr(Combobox1.ItemIndex+1),2,'0')+Copy(Edit1.Text,4,0));
          StatusBar1.SimpleText:='Êîïèðóåòñÿ ôàéë '+fromfile;
      begin
          FindFirst(fromfile,faAnyFile,fs);
      repeat
       if  (Pos('.txt', fs.name)<>0) and (fs.name <> '.') and (fs.name <> '..')  then
       begin
          Copyfile(Pchar(fs.name),Pchar(ToFile),False);
       end;
     until FindNext(fs) <> 0;
     FindClose(fs);
     end;
     end;
  showmessage(fromfile);
  showmessage(tofile);
  showmessage(fs.name);
   end;
  Statusbar1.SimpleText:='Файлы скопированны';
end;

end.