Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
kaug
0 / 0 / 0
Регистрация: 25.09.2017
Сообщений: 18
#1

Вывести в listbox имена файлов из папки

10.10.2017, 17:55. Просмотров 224. Ответов 5
Метки нет (Все метки)

Есть код:
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim folderBrowserDialog1 As FolderBrowserDialog = New FolderBrowserDialog
        If (folderBrowserDialog1.ShowDialog = DialogResult.OK) Then
            TextBox1.Text = folderBrowserDialog1.SelectedPath
        End If
 
 
        Dim dir = New System.IO.DirectoryInfo(TextBox1.Text)
        Dim files = dir.GetFiles("*.txt")
        ListBox1.Items.Clear()
        For Each fi As FileInfo In files
            ListBox1.Items.Add(fi)
        Next
 
 
    End Sub
выводит имена файлов из выбранной папки через fbd.
Как мне подправить код что бы в listbox выводились
1. только файлы с расширением txt но начинающиеся на er
2. что бы выводились все файлы txt, кроме файлов начинающихся на er?
спасибо за помощь!

Добавлено через 7 минут
и еще один вопрос:
как указать несколько расширений файлов для вывода в listbox?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2017, 17:55
Ответы с готовыми решениями:

Получить в listbox имена файлов по маске из папки
Всем привет. НА форме есть текстовое поле, кнопка и listbox В текстовое поле...

Вывести в listbox имена файлов по дате их создания
Необходимо вывести в listbox имена всех файлов из папки(путь к папке...

Загрузка файлов в ListBox из папки ресурсов
Доброго всем времени суток! В папке ресурсов хронятся несколько звуковых...

Возможно ли вывести в ListBox название всех файлов по заданному пути
Уважаемые программисты, прошу помочь! Возможно ли вывести на ListBox название...

Как можно вывести содержимое всех файлов папки в ListView и разделить по колонкам?
Я хочу сделать программу для хранения паролей к сайтам. При добавлении логина и...

5
ovva
2352 / 1992 / 488
Регистрация: 02.02.2013
Сообщений: 1,854
Записей в блоге: 2
10.10.2017, 18:56 #2
Используйте My.Computer.FileSystem, например
vb.net
1
2
3
For Each foundFile As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly, "er*.txt")
    ListBox1.Items.Add(foundFile)
Next
Добавлено через 6 минут
Для списка расширений
vb.net
1
2
3
For Each foundFile As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly, {"re*.txt", "_0*.tmp"})
    ListBox1.Items.Add(foundFile)
Next
Добавлено через 34 минуты
Цитата Сообщение от kaug Посмотреть сообщение
что бы выводились все файлы txt, кроме файлов начинающихся на er?
Я бы сделал так
vb.net
1
2
3
Dim erFiles = My.Computer.FileSystem.GetFiles("C:\05", FileIO.SearchOption.SearchTopLevelOnly, "er*.txt")
Dim allFiles = My.Computer.FileSystem.GetFiles("C:\05", FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
Dim not_erFiles() As String = (allFiles.Except(erFiles)).ToArray
2
kaug
0 / 0 / 0
Регистрация: 25.09.2017
Сообщений: 18
11.10.2017, 09:57  [ТС] #3
ovva, спасибо, разобрался но не до конца. Как вывести из вашего кода только имена файлов в listbox, без полного пути к ним?
vb.net
1
2
3
 For Each erFiles As String In My.Computer.FileSystem.GetFiles("F:\_2", FileIO.SearchOption.SearchTopLevelOnly, "*.xml")
            ListBox1.Items.Add(erFiles)
        Next
0
SoftIce
comment ca va
10444 / 3953 / 1008
Регистрация: 27.07.2011
Сообщений: 9,555
Завершенные тесты: 1
11.10.2017, 10:07 #4
Цитата Сообщение от kaug Посмотреть сообщение
только имена файлов в listbox, без полного пути к ним
vb.net
1
  ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(erFiles))
Добавлено через 5 минут
А если нужно с расширением, то
vb.net
1
ListBox1.Items.Add(IO.Path.GetFileName(erFiles))
1
kaug
0 / 0 / 0
Регистрация: 25.09.2017
Сообщений: 18
11.10.2017, 12:17  [ТС] #5
ovva, SoftIce,
Цитата Сообщение от ovva Посмотреть сообщение
Сообщение от kaug
что бы выводились все файлы txt, кроме файлов начинающихся на er?
Я бы сделал так
vb.net
1
2
3
Dim erFiles = My.Computer.FileSystem.GetFiles("C:\05", FileIO.SearchOption.SearchTopLevelOnly, "er*.txt")
Dim allFiles = My.Computer.FileSystem.GetFiles("C:\05", FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
Dim not_erFiles() As String = (allFiles.Except(erFiles)).ToArray
А как вывести в листбокс имена файлов с расширением?
0
XIST
1044 / 772 / 109
Регистрация: 01.10.2009
Сообщений: 2,404
Записей в блоге: 1
11.10.2017, 18:26 #6
kaug, а то что SoftIce, написал
Цитата Сообщение от SoftIce Посмотреть сообщение
А если нужно с расширением, то
vb.net
1
ListBox1.Items.Add(IO.Path.GetFileName(erFiles))
не катит?
0
11.10.2017, 18:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2017, 18:26

Отобразить имена файлов с иконками, соответствующими расширению файлов
Всем привет! Помогите, пожалуйста, решить такую задачу: имеется некий список...

Отправка содержания файлов папки на email. Местоположение папки неизвестно
Всем привет, столкнулся с такой задачей, есть одна папка(ЕОП), с какими-то...

Отобразить в ListBox имена дисков в системе
Добрый день,как загрузать в лист бокс все доступные диски с их...


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

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

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