Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > прочитать имя обработать файл и по кругу

Автор: molchaliviy 25.6.2009, 08:56

Доброго дня!
Есть задача - пытаюсь ее решить
консольное приложение которое обрабатывает файлы в директории
в имени файла есть инфа требуемая для обработки файла (первые 4 символа имени)
после чтения имени происходит обработка файла его архивирование и удаление исходного файла
цикл обработки продолжается пока в папке есть фаайлы
файлов в директории может быть от 0 до 100 т.е. если 0 то проиложение завершает работу досрочно

Вопрос
как считывать имена файлов по одному до техпор пока директория не станет пуста
как создать задание по расписанию после завершения работы программы

Автор: Frees 25.6.2009, 09:10

Код


Var SearchRec:TSearchRec;


If FindFirst('c:\Windows\*.*', faAnyFile, SearchRec)=0 then
repeat
{Вот здесь мы можем делать с найденным файлом что угодно
SearchRec.name - имя файла
ExpandFileName(SearchRec.name) - имя файла с полным путем} 
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

DRKB©

Автор: rodnover 25.6.2009, 09:18

http://forum.vingrad.ru/index.php?showtopic=109636

Эт не то что нужно для создания задачи?

Автор: molchaliviy 25.6.2009, 09:35

Frees,
Сенкс - помогло
а вот как прочитать имя файла без полного пути к нему

Автор: Frees 25.6.2009, 09:45

Цитата(Frees @ 25.6.2009, 12:10

)

SearchRec.name - имя файла

и еще есть ExtractFileName

Автор: molchaliviy 25.6.2009, 09:45

да и вот еще вопрос .....
как отсеч в TimeToStr(now) секунды и сменить двоеточие на точку

Автор: Frees 25.6.2009, 09:46

Код


Showmessage(ExtractFileName('c:\test\file.txt'));

Добавлено @ 09:52

Цитата(molchaliviy @ 25.6.2009, 12:45

)

да и вот еще вопрос .....как отсеч в TimeToStr(now) секунды и сменить двоеточие на точку

Код


var s: string;
begin
  DateTimeToString(s,'dd.mmmm.yyyy hh.mm',now);
  ShowMessage(s);
end;