Вопрос по файлам.

[True]

Доброго времени суток уважаемые форумчане!
Собственно у меня возникла ситуация. Есть у меня на работе такая задача, каждый день в поределенный каталог скидывают файлы (допустим тхт), я должен эти файлы подбрасывать в одну программу, т.е. я захожу в директорию - ищу последние присланные файлы и копирую их. Поэтому есть мысль написать программу, которая бы искала файл по дате его создания, т.е. если файл кинули, например сегодня, то программа выберет именно его. Теперь сам вопрос, как с помощью Delphi осуществить поиск по последней дате создания файла в определенном каталоге для дальнейшего его копирования в нужную мне папку. Просьба отнестись с пониманием и помочь в данном вопросе. Заранее благодарю.

[Air]

Вот наработка. на скорую руку.

var
  Form1: TForm1;
  str,dtr:TstringList;

implementation

{$R *.dfm}

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

function ScanDiskToFile(Way,FileMask,SearchFile: string):TstringList;
var
SearchRec:TSearchRec;
hFindFile:integer;
sl:string;
begin
if Way[strlen(pchar(Way))] <> '\' then sl:='\';
hFindFile:=FindFirst(Way+sl+FileMask,faAnyFile,SearchRec);
while hFindFile=0 do
 begin
  if ((SearchRec.Attr and faDirectory)=0) then
   begin
    if SearchFile <> '*' then
     begin
      if SearchRec.Name=SearchFile then
       dtr.Add(way+sl+SearchFile);
     end
    else
     if '*'+ExtractFileExt(SearchRec.Name) = FileMask then
      dtr.Add(way+sl+SearchRec.Name);
    result:=dtr;
   end
  else
   if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
    begin
     str:=ScanDiskToFile(way+sl+SearchRec.Name,FileMask,SearchFile);
     try
      if str.Names[str.Count-1] <> '' then dtr.Add(way+sl+SearchFile);
     except
     end;
    end;
  hFindFile:=FindNext(SearchRec);
 end;
FindClose(SearchRec);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer; List:TStringList;
begin
List:=TStringList.Create;
List:=ScanDiskToFile('c:\','*.txt','*');
for i:=0 to List.Count-1 do
 if GetFileDateTime(List.Strings[i]) = now then //это слишком строго вплоть до секунды, проще перевести в строку и сравнивать со строкой datetostr(now) - вернёт 06.05.2008
  copyfile(pchar(List.Strings[i]), pchar('C:\Новое\'+extractfilename(List.Strings[i])),false);
end;

'c:\' - путь поиска
'*.txt' - фильтр
'*' - значит все, можно указать конкретный файл 'wse.txt' будет искать его


Инфа
http://www.google.ru/search?q=%D0%BF...utf-8&oe=utf-8

[BOBAH13]

Для поиска используйте FindFirst, FindNext, FindClose. Для сравнения дат надо конечно же использовать нужную вам дату ( сегодня в данную секунду функция Now ) а для получения даты создания файла вот пример в MSDN:

#include <windows.h>

// GetLastWriteTime - Retrieves the last-write time and converts
//                    the time to a string
//
// Return value - TRUE if successful, FALSE otherwise
// hFile      - Valid file handle
// lpszString - Pointer to buffer to receive string

BOOL GetLastWriteTime(HANDLE hFile, LPTSTR lpszString)
{
    FILETIME ftCreate, ftAccess, ftWrite;
    SYSTEMTIME stUTC, stLocal;

    // Retrieve the file times for the file.
    if (!GetFileTime(hFile, &ftCreate, &ftAccess, &ftWrite))
        return FALSE;

    // Convert the last-write time to local time.
    FileTimeToSystemTime(&ftWrite, &stUTC);
    SystemTimeToTzSpecificLocalTime(NULL, &stUTC, &stLocal);

    // Build a string showing the date and time.
    wsprintf(lpszString, TEXT("%02d/%02d/%d  %02d:%02d"),
        stLocal.wMonth, stLocal.wDay, stLocal.wYear,
        stLocal.wHour, stLocal.wMinute);

    return TRUE;
}

[True]

Всем большое спасибо за советы и помощь, буду пробовать что-то из этого всего сконструировать.

С первым вопросом более-менее разобрался, теперь ситуация такова, файлы архивные, как мне из архива (rar) извлечь нужный мне файл (тхт) допустим с помощью процедуры нажатия на кнопку?

[BOBAH13]

Про rar архив на этом форуме уже обсуждалось, ищем поиском.

[Air]

У любого архиватора есть справка, посмотрите в ней как распаковывать командной строкой.
Далее

Uses Shellapi;
shellexecute(application.Handle,pchar('Open'),pchar(<путь к архиватору>),pchar(<параметр(CMD трока)>),'',1);