|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.01.2021, 23:03 | #1 |
Пользователь
Регистрация: 22.10.2011
Сообщений: 18
|
Удалить файлы из папки по расширению
Привет всем
? как удалить файлы с определённым расширением в папке КОД КНОПКИ Begin DirBin:=EditDirBin.Text; // DirBin переменная пути папки BIN из введенного в EDIT C:\Program Files (x86)\Borland\Delphi7\Bin Begin //ПРОВЕРКА СУЩЕСТВОВАНИЯ ПАПКИ BIN И ФАЙЛОВ С РАСШИРЕНИЕМ *.RUS if DirectoryExists(DirBin) then//проверка существование папки Bin begin StatusBar.Panels[0].Text := 'Папка есть'; end else StatusBar.Panels[0].Text := 'Папки нет'; if(FileExists(DirBin+('*.RUS')))the n //проверка существование файлов RUS begin StatusBar.Panels[0].Text := 'Файлы в папке есть'; DeleteFile(DirBin+'*.RUS') end; end; end; что то не работает данный код ЗАРАНЕЕ СПАСИБО
Локализа́ция програ́ммного обеспече́ния — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой
Последний раз редактировалось Pascalius; 09.01.2021 в 23:06. |
10.01.2021, 01:19 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
В данном случае маски не работают, надо искать все файлы с помощью FindFirst и FindNext, в цикле их удаляя по одному.
E-Mail: arigato.freelance@gmail.com
|
10.01.2021, 01:47 | #3 |
Пользователь
Регистрация: 22.10.2011
Сообщений: 18
|
Спасибо за подсказку. буду думать дальше
Локализа́ция програ́ммного обеспече́ния — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой
|
10.01.2021, 02:30 | #4 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,894
|
|
10.01.2021, 12:34 | #5 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
А что мешает удалять по мере поиска файлов? Хотя можно и составить список отдельно.
E-Mail: arigato.freelance@gmail.com
|
10.01.2021, 17:28 | #6 |
Старожил
Регистрация: 19.06.2013
Сообщений: 2,469
|
Спалился: Pascalius = northener .
Это один и тот-же гуманоид. https://www.youtube.com/watch?v=F9k7a8say-4
Репутация: полный "0"
Последний раз редактировалось zvygin1964; 10.01.2021 в 17:31. |
10.01.2021, 18:07 | #7 | |
Пользователь
Регистрация: 22.10.2011
Сообщений: 18
|
Цитата:
Локализа́ция програ́ммного обеспече́ния — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой
|
|
10.01.2021, 18:13 | #8 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
|
12.01.2021, 19:07 | #9 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
держи код
Код:
Код:
Код:
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
Последний раз редактировалось NetSpace; 13.01.2021 в 08:54. |
13.01.2021, 18:23 | #10 |
Пользователь
Регистрация: 22.10.2011
Сообщений: 18
|
спасибо
Локализа́ция програ́ммного обеспече́ния — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
КАК ОТОБРАЗИТЬ ФАЙЛЫ И ПАПКИ С ФЛЕШКИ ДАЖЕ КОГДА В НАСТРОЙКАХ ПАПКИ СНЯТА ГАЛОЧКА СКРЫТЬ ЗАЩИЩЕННЫЕ ФАЙЛЫ | adninistraotr | Общие вопросы по программированию, компьютерный форум | 1 | 12.12.2019 10:10 |
Папки и файлы | SUPER123 | Win Api | 8 | 04.09.2013 15:18 |
Как отсортировать файлы в обозревателе по расширению? | Trinock | Win Api | 2 | 04.12.2011 13:28 |
удалить файлы и папки | Viten2 | Общие вопросы Delphi | 31 | 08.09.2011 13:18 |
Удалить загруженный файл из Temp-папки | Человек_Борща | Общие вопросы Delphi | 11 | 03.08.2010 14:57 |