|
Вопрос # 5 340/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Столкнулся с интересной для себя проблемой...
Задача в том, чтобы удалить все одноименные файлы независимо от расширения из текущей папки (text.txt, text.rar, text.lnk).
Пробывал удалить по маске, но ничего не получилось...
Подскажите, что я делаю не так? фрагмент кода
 |
Вопрос задал: Rusya (статус: Посетитель)
Вопрос отправлен: 29 мая 2011, 22:07
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 30 мая 2011, 00:14; участников в обсуждении: 2.
|
|
Rusya (статус: Посетитель), 29 мая 2011, 23:24 [#2]:
Немного непонятный для меня код...
Можно его как-то заточить под то, что мне нужно?
Допустим, при таком коде...
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile('text.txt');
end;
... всё прекрасно работает. Файл удаляется. Мне только нужно, чтобы вдобавок удалялись и другие с именем "text", но другими расширениями (.rar, .lnk и т.д.).
|
|
Кириченко Сергей (статус: 1-ый класс), 29 мая 2011, 23:42 [#3]:
Правильно но ф-я DeleteFile() удаляет файл с именем переданным в параметре. Файла с именем text.* в каталоге (кстати в каком каталоге она исчет файл "text.txt"?). Процедура приведенная выше исчет все файлы в каталоге по маске заданной в переменной Mask и удаляет их.
А заточить так просто. Копипастишь код. Вставляешь в свой проект, меняешь Mask := '*.*'; на Mask := 'text.*';, вместо DeleteFile('text.txt');
вызываешь DeleteFiles("путь к каталогу").
|
|
|
Rusya (статус: Посетитель), 30 мая 2011, 00:14 [#4]:
Спасибо, буду пробывать...
"(кстати в каком каталоге она исчет файл "text.txt"?)"
В каталоге, из которого непосредственно запущено моё приложение...
|
30 мая 2011, 08:35: Вопрос перемещён из тематического раздела Delphi » Прочее в раздел Delphi » Работа с файловой системой модератором Ерёмин А.А.
2 июня 2011, 13:41: Статус вопроса изменён на решённый (изменил автор вопроса — Rusya)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
