Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 1
Регистрация: 07.02.2018
Сообщений: 92
1

Получить в listbox имена файлов по маске из папки

08.05.2018, 14:24. Показов 2720. Ответов 3
Метки нет (Все метки)

Всем привет.
НА форме есть текстовое поле, кнопка и listbox
В текстовое поле вводятся через запятую окончания имени файла, например
*ia.txt,*was.txt,*resx.txt
и при нажатии на кнопку произвести поиск файлов по данной маске и вывести их в listbox.
как сделать для одного файла по маске я знаю:
VB.NET
1
2
3
4
Dim files As String() = Directory.GetFiles("D:\_test\", "*ia.txt")
        For Each f As String In files
            ListBox1.Items.Add(f)
        Next
А как сделать что бы было несколько условий поиска - не знаю. Помогите, пожалуйста в решении данной проблемы
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2018, 14:24
Ответы с готовыми решениями:

Вывести в listbox имена файлов из папки
Есть код: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ...

Отобразить имена всех текстовых файлов из папки в ListBox
Доброго времени суток! Нужно вывести в listbox имена всех txt-файлов, находящихся в папке с рабочей...

Копирование файлов в папки по маске файла и маске папки
Добрый день! Товарищи, помогите. Возникла надобность раскладывать файлы по маске папки и маске...

Получить имена файлов из папки, переименовать файл
Можно ли получить имена всех файлов в папке например с расширением .dbf Как это сделать, чтоб они...

3
Лень — мое второе и
2993 / 2215 / 646
Регистрация: 28.11.2014
Сообщений: 3,377
Записей в блоге: 2
08.05.2018, 14:56 2
Лучший ответ Сообщение было отмечено _Zigzag_ как решение

Решение

_Zigzag_,
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim extensions As New List(Of String)
        Dim path As String = "C:\base\blabla\"
 
        If TextBox1.TextLength > 0 Then
            Dim source() As String = Split(TextBox1.Text, ",")
 
            For i = 0 To UBound(source)
                extensions.Add(Trim(source(i)))
            Next
 
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories, extensions.ToArray)
                ListBox1.Items.Add(foundFile)
            Next
        End If
1
0 / 0 / 1
Регистрация: 07.02.2018
Сообщений: 92
08.05.2018, 15:06  [ТС] 3
Orlangur1991, а как можно переделать код, так что бы маска файла бралась из строк Listbox1 и файлы выводились в Listbox2?
0
Лень — мое второе и
2993 / 2215 / 646
Регистрация: 28.11.2014
Сообщений: 3,377
Записей в блоге: 2
08.05.2018, 15:09 4
_Zigzag_,
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Dim extensions As New List(Of String)
        Dim path As String = "C:\base\blabla\"
 
        If ListBox1.Items.Count > 0 Then
            For i = 0 To ListBox1.Items.Count - 1
                extensions.Add(Trim(ListBox1.Items.Item(i)))
            Next
 
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories, extensions.ToArray)
                ListBox2.Items.Add(foundFile)
            Next
        End If
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2018, 15:09

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как получить имя папки? Как узнать имена файлов, которые в ней есть?
Добрый вечер. Такой вопрос. Как получить имя папки? Как узнать имена файлов,которые в ней есть, и...

Написать функцию, выводящую имена файлов текущей директории по заданной маске
написать функцию, выводящую на экран(в файл) имена файлов в текущей директории по заданной...

Перемещение файлов из папки по маске
Здравствуйте. Такой вопрос как можно вырезать файл по названием файла. Например Есть файлы...

Удаление файлов из папки по маске
Доброго времени суток, нагуглил скрипт который должен удалять файлы из папки по маске но он не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.