Удаление файлов точно заданного расширения

@timsc1 · Регистрация: 27.11.2011

Студворк — интернет-сервис помощи студентам

Всем доброго здоровичка!!! Такая проблема:
VB2008
Удаляю файлы из папки.

VB.NET
1
2
3
For Each txt$ In IO.Directory.GetFiles(p.SelectedPath, s2)
            IO.File.Delete(txt)
        Next

Расширения беру из комбокса. Проблема в том, что он удаляет не нужные файлы; напр. выбираю *.doc, а он удаляет ещё и docx, выбираю *.htm, он удаляет ещё и html. Как сделать удаление только указанных файлов. Спасибо!!!

SoftIce · 25.08.2016, 21:09

Сообщение от timsc1

Расширения беру из комбокса.

Ну и что там у Вас в комбобоксе?

@timsc1 · 25.08.2016, 21:10 **[ТС]**

VB.NET
1
2
3
4
5
6
cc.Items.Add("*.htm")
        cc.Items.Add("*.html")
        cc.Items.Add("*.txt")
        cc.Items.Add("*.docx")
        cc.Items.Add("*.odt")
        cc.Items.Add("*.doc")

SoftIce · 25.08.2016, 21:12

И потом s2 = cc.text ?

@timsc1 · 25.08.2016, 21:15 **[ТС]**

s2 = cc.SelectedItem

SoftIce · 25.08.2016, 21:21

Такова особенность функции. Цитата МСДН

Если указанное расширение ровно из трех символов, метод возвращает файлы с расширениями, которые начинаются с указанным расширением.Например «*.xls» возвращает «book.xls» и «book.xlsx».

Во всех остальных случаях метод возвращает файлы, которые точно соответствуют указанным расширением.Например «* .ai» возвращает «file.ai», но не «file.aif».

Поэтому выход, как мне кажется - проверять дополнительно расширения найденных файлов

Добавлено через 2 минуты
Попробуйте так, сам не проверял

VB.NET
1
if txt like s2 then  IO.File.Delete(txt)

@timsc1 · 25.08.2016, 21:25 **[ТС]**

SoftIce, огромное СПАСИБО!!! РАБОТАЕТ!!!

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	25.08.2016, 21:12
	И потом s2 = cc.text ? 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	25.08.2016, 21:15 [ТС]
	s2 = cc.SelectedItem 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	25.08.2016, 21:25 [ТС]
	SoftIce, огромное СПАСИБО!!! РАБОТАЕТ!!! 0

Удаление файлов точно заданного расширения

Решение