Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск файла, который сформирован самым последним 
:(
    Опции темы
Berliner
Дата 23.8.2005, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Здрвствуйте, вот хочу написать программу ктоторая находит файл (например текстовик *.txt) в каталоге c:\1
кторый сформирован самым последним . В каталоге лежит много файлов с разными датами и временем формирования. Помогите с кодом
У меня получилось написать программу котороя сравнивает дату создания файла с выбранной датой а как сделать чтобы отбирала самый свежий файл не знаю. smile
PM   Вверх
~FoX~
Дата 23.8.2005, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Примерно так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TSearchRec;
  i : integer;
  Dat: integer;
  LFile: string;

begin
 i := FindFirst('c:\temp\1\*.*', faAnyFile, f);
 if (f.Name <> '.') and (f.Name <> '..') then  begin
   Dat := f.Time;
   LFile := f.Name;
 end;
   while (i=0) do
    begin
     Application.ProcessMessages;
     i := FindNext(f);
     if (f.Time > Dat) and (f.Name <> '.') and (f.Name <> '..') then  begin
       Dat := f.Time;
       LFile := f.Name;
     end;

    end;
  FindClose(f);
  ShowMessage(LFile);
end;



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Berliner
Дата 23.8.2005, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасибо буду пробывать
PM   Вверх
Girder
Дата 23.8.2005, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155
Вот компонент и пример использования.

PS: Писал давно и в попыхах smile так что возможны какие нить ошибочки smile Но вроде в свое время их все пофиксил.

PS2: Одно точно помню... что все что хотел запихнуть в ентот компонент - на 100% не реализовал smile . Да и некоторые весчи реализовал через одно место smile . В настоящее время уже переписывать его лень smile

PS3: Ну а отсев по дате... прикрутить туда... пяти минутное дело... smile

Это сообщение отредактировал(а) Girder - 23.8.2005, 10:24

Присоединённый файл ( Кол-во скачиваний: 15 )
Присоединённый файл  FileSearch.zip 13,20 Kb


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Berliner
Дата 23.8.2005, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Код робает! Вот вопрос :
добавил свой код и что -то не отправялет файл может кто знает где ошибка
Код


procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
    s,d3,filetP:string;
    d2:TDateTime;
    poisk:TSearchRec;
    f : TSearchRec;
    i : integer;
   Dat: integer;
   LFile: string;

begin
       
       if CheckBox1.Checked=true and CheckBox5.Checked=true then
       begin
       i := FindFirst('f:\kassa\out\*.arx', faAnyFile, f);
 if (f.Name <> '.') and (f.Name <> '..') then  begin
   Dat := f.Time;
   LFile := f.Name;
 end;
   while (i=0) do
    begin
     Application.ProcessMessages;
     i := FindNext(f);
     if (f.Time > Dat) and (f.Name <> '.') and (f.Name <> '..') then  begin
       Dat := f.Time;
       LFile := f.Name;
     end;

    end;
  FindClose(f);
  ShowMessage(LFile);
 NMSMTP1.Host:='127.0.0.1';
NMSMTP1.Port:=25;
NMSMTP1.UserID:='Syntez bank';
NMSMTP1.Connect;
NMSMTP1.PostMessage.ToAddress.Add(Form2.Edit1.Text);
NMSMTP1.PostMessage.FromAddress:='[email protected]';
NMSMTP1.PostMessage.Subject:='Тема';
NMSMTP1.PostMessage.Body.Add('Оплата ');
NMSMTP1.PostMessage.Attachments.Add(Lfile);
NMSMTP1.SendMail;
NMSMTP1.Disconnect;


       end;


Ошибка: Efoopen error Cannot open file K1231231.arx в чем может біть проблема smile
Добавлено @ 12:07
У меня отправка подобным образом с другими файлами работает
эт я дописываю программу
PM   Вверх
~FoX~
Дата 23.8.2005, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Цитата(Berliner @ 23.8.2005, 13:04)
Efoopen error Cannot open file K1231231.arx в чем может біть проблема

Ну наверное вот так надо то:
Код

  NMSMTP1.PostMessage.Attachments.Add('f:\kassa\out\'+Lfile);



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Berliner
Дата 23.8.2005, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасибо большое буду пробывать

И вообще нравиться мне на форуме -помогают советы дельные дают smile smile
Вот только форум по киликс вялый - а жаль, может оживет
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0473 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.