Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.03.2014, 23:31   #1
ТипичныйСтудент
Форумчанин
 
Аватар для ТипичныйСтудент
 
Регистрация: 09.04.2013
Сообщений: 110
Вопрос DELPHI Выбрать все файлы в каталоге и если расширение .lnk - переименовать, удалив расширение

Проблема такая, есть программка (вирус), которая ко всем файлам приписывает расширение .lnk
Задача: создать программу, которая анализирует имена всех файлов в каталоге и если расширение .lnk - то переименовывает этот файл, удалив расширение...
пример: test.doc.lnk => test.doc

Помогите с алгоритмом и кодом)
пока мой план действий такой:
открываем каталог,
берем первый файл,
анализируем название,
если надо - переименовываем, нет - переходим к следующему
и так пока есть файлы....
___
на данный момент это происходит в ручную через Total Commnder
___
прошу подправить и подсказать с чего начинать =)
заранее спасибо
Есть задача - реши ее!
ТипичныйСтудент вне форума Ответить с цитированием
Старый 14.03.2014, 23:54   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

читаем про FindFirst / FindNext (на форуме неоднократно были примеры использования) + RenameFile

p.s. план хороший
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расширение области видимости локального объекта на все файлы. mmx358 Общие вопросы C/C++ 9 13.07.2012 11:18
Delphi idftp загрузить все файлы в каталоге Plexdeath Работа с сетью в Delphi 0 25.04.2011 14:07
Как открыть все файлы в одном каталоге Archey Общие вопросы Delphi 2 09.12.2009 12:43
Расширение файла в Delphi vlad00777 Помощь студентам 3 18.10.2009 21:11
как вывести все имеющиеся файлы в каталоге на экран? Almost456 Паскаль, Turbo Pascal, PascalABC.NET 2 24.12.2008 20:44