Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Список файлов из папки в ListBox, добавление списка без расширения! 
V
    Опции темы
DENSHER
Дата 6.8.2010, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет
Трабла в следующем.

Я вывожу в ListBox1 файлы с нужным мне расширением и хочу чтобы 
расширение .bsp не отображалась в списке ListBox1 , а только имена файлов.

Код

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim di As DirectoryInfo = New DirectoryInfo(Dir.Text)
        If di.Exists Then
            Dim File1 As FileInfo
            For Each File1 In di.GetFiles
                ListBox1.DataSource = di.GetFiles("*.bsp")
            Next
        End If
    End Sub
PM MAIL   Вверх
diadiavova
Дата 6.8.2010, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Код

Dim filenames = IO.Directory.GetFiles("*.bsp").Select(AddressOf IO.Path.GetFileNameWithoutExtension)
ListBox1.Items.AddRange(filenames)




--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
DENSHER
Дата 6.8.2010, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет
diadiavova , не мог бы ты показать пример кода своего совмещенного с моим , а то у меня выдает ошибку.

Ошибка    1    Не удалось разрешить перегрузку, так как ни один из доступных "AddRange" не может быть вызван без преобразования, сужающего диапазон значений: 
    'Public Sub AddRange(items() As Object)': Соответствующий параметру "items" аргумент сужает диапазон возможных значений при преобразовании из "System.Collections.Generic.IEnumerable(Of String)" в "1-мерный массив из Object".
    'Public Sub AddRange(value As System.Windows.Forms.ListBox.ObjectCollection)': Соответствующий параметру "value" аргумент сужает диапазон возможных значений при преобразовании из "System.Collections.Generic.IEnumerable(Of String)" в "System.Windows.Forms.ListBox.ObjectCollection".

Видно что-то намудрил ((( или про что-то забыл.
PM MAIL   Вверх
diadiavova
Дата 6.8.2010, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(DENSHER @  6.8.2010,  14:10 Найти цитируемый пост)
Видно что-то намудрил ((( или про что-то забыл.

ну да smile 
Код

Dim filenames = IO.Directory.GetFiles("*.bsp").Select(AddressOf IO.Path.GetFileNameWithoutExtension)
ListBox1.Items.AddRange(filenames.ToArray())


Добавлено через 1 минуту и 14 секунд
А кстати, зачем в твоем коде цикл? smile 


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
DENSHER
Дата 6.8.2010, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет
Цитата(diadiavova @ 6.8.2010,  13:12)
Цитата(DENSHER @  6.8.2010,  14:10 Найти цитируемый пост)
Видно что-то намудрил ((( или про что-то забыл.

ну да smile 
Код

Dim filenames = IO.Directory.GetFiles("*.bsp").Select(AddressOf IO.Path.GetFileNameWithoutExtension)
ListBox1.Items.AddRange(filenames.ToArray())


Добавлено @ 13:14
А кстати, зачем в твоем коде цикл? smile

 smile  Видно по запарке добавил и даже не увидел , на автопилоте уже все делаю. 
Спать пора. 
Спасибо что подправил , а то так бы и оставил.

Добавлено через 7 минут и 40 секунд
diadiavova  , извиняюсь за глупость.
Как мне указать в твоем примере путь к папке (ругается при запуске на: "Путь содержит недопустимые знаки.") , а то я чего-то вобще запутался.
PM MAIL   Вверх
DENSHER
Дата 6.8.2010, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет
Все спасибо совсем разобрался.
PM MAIL   Вверх
nav037
Дата 8.4.2011, 07:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 17.1.2011

Репутация: нет
Всего: нет
спс

Это сообщение отредактировал(а) nav037 - 8.4.2011, 08:09
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1005 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.