Отобразить в ComboBox имена папок из заданного каталога

@gotemcity · Регистрация: 04.11.2012

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

Всем добрый день!
Каким образом добавить в ComboBox строки, чтобы им присваивались названия папок из указанной папки?

Т.е. имеется папка "ПППП" в ней лежат папки "ППП1", "ППП2", "ППП3" и тд. Задача в том, чтобы при нажатии commandButton в Combo Box появлялся список папок "ППП1", "ППП2" и тд. А затем при выборе определенной папки в ComboBox в ListBox отображались бы файлы этой папки. Это возможно реализовать?

Всем спасибо!

З.ы.: я новенький и прошу не ругать!

dev.Free · 05.11.2012, 11:53

Чем плох DriverListBox, FileListBox ? Смотри вложенный файл, там пример работы с ним. И вот еще тема, вчера ее обсуждали: В PictureBox отобразить картинку, выбранную в FileListBox

@gotemcity · 05.11.2012, 11:59 **[ТС]**

не устраивает то, что в там выводятся папки не нужные для работы, что усложняет нахождение нужной инфы...

так то, что я описал реально реализовать!?

SoftIce · 05.11.2012, 12:04

Судя по вашим вопросам, Вам может быть обратить внимание на компонент CommonDialog из состава Microsoft Common Dialog Control 6.0(SP6) ?

Отобразить в ComboBox имена папок из заданного каталога

SoftIce · 05.11.2012, 12:09

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

папки не нужные для работы, что усложняет нахождение нужной инфы.

Кстати там можно использовать и фильтр для отображения только файлов с определённым расширением.

@gotemcity · 05.11.2012, 12:14 **[ТС]**

я не совсем пойму как это поможет реализовать то, что я хочу!?

SoftIce · 05.11.2012, 12:17

А что Вы хотите?

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

Каким образом добавить в ComboBox строки, чтобы им присваивались названия папок из указанной папки?

Это ведь, как я понимаю, только промежуточный результат.

Впрочем, хозяин - барин. Я просто предложил вариант.

@gotemcity · 05.11.2012, 12:33 **[ТС]**

хочу , чтобы при нажатии определенной кнопки (на разных кнопках надо указать дирректории из которых в дальнейшем добавляться папки будут) в combo box добавлялись название папок....а потом при выборе в combobox нужной папки, файлы находящиеся в этой папке отображались в listbox....

Добавлено через 54 секунды
Список имен файлов из папки загрузить в ComboBox

как в этой теме только применительно к папкам и на языке VB

Добавлено через 10 минут
Загрузить в combobox имена папок из указанной директории

или вот на делфи....

@Апострофф · 05.11.2012, 12:41

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub Combo1_Click()
Dim f$
Combo2.Clear
f = Dir(App.Path & "\" & Combo1.Text & "\*.*")
While f <> ""
  If (GetAttr(App.Path & "\" & Combo1.Text & "\" & f) And vbDirectory) = 0 Then
    Combo2.AddItem f
  End If
  f = Dir
Wend
End Sub
 
Private Sub Form_Load()
Dim d$
d = Dir(App.Path & "\*.*", vbDirectory)
While d <> ""
  If GetAttr(App.Path & "\" & d) And vbDirectory Then
    If d <> "." And d <> ".." Then
      Combo1.AddItem d
    End If
  End If
  d = Dir
Wend
End Sub

PS: Реализации выбора из папки с экзешником.

@gotemcity · 05.11.2012, 13:21 **[ТС]**

Спасибо!

Так а как теперь при выборе в combobox папки в listbox загружались файлы из этой папки?

@Апострофф · 05.11.2012, 14:45

gotemcity, переименуй listbox в Combo2,
или я не понимаю вопроса

dev.Free · 05.11.2012, 15:15

Апострофф, ему надо, что в комбайне были все папки которые ему надо и чтобы при выборе данной папки в комбайне, в листе отобразились все файлы соответствующие данной папки.

@gotemcity · 05.11.2012, 16:17 **[ТС]**

inv.DS прав, именно это нужно..

Добавлено через 43 минуты
так как это сделать то?...как передать файлы в listbox2 или combobox2 после выбора определенной папки в combobox1?

@Alex77755 · 05.11.2012, 16:37

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

inv.DS прав, именно это нужно..

Добавлено через 43 минуты
так как это сделать то?...как передать файлы в listbox2 или combobox2 после выбора определенной папки в combobox1?

Не по теме:

А как на счёт правил? Примеры дали, ссылки дали. Начинай уже. Не получится - покажи наработки:

что было сделано для ее решения и какие результаты получены.

@gotemcity · 05.11.2012, 16:42 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command3_Click()
Form2.Show
Unload Form4
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command5_Click()
Dim d$
Combo1.Clear
d = Dir(App.Path & "\Files\Kran\LTM-1055-1\*.*", vbDirectory)
While d <> ""
  If GetAttr(App.Path & "\Files\Kran\LTM-1055-1\" & d) And vbDirectory Then
    If d <> "." And d <> ".." Then
      Combo1.AddItem d
    End If
  End If
  d = Dir
Wend
End Sub

Где не получается:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Click()
Dim f$
Combo2.Clear
f = Dir(App.Path & "\.*", vbDirectory)
While f <> ""
  If (GetAttr(App.Path & "\" & Combo2.Text & "\" & f) And vbDirectory) = 0 Then
    Combo2.AddItem f
  End If
  f = Dir
Wend
End Sub

Visual Basic
1
2
3
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(Combo2.Path + "\" + Combo2.FileName)
End Sub

то, что выделено красным не получается...как указать адресс чтобы значения во втором combobox брались из папки выбранной в первом combobox

Добавлено через 1 минуту
сейчас во втором combobox выдаются файлы лежащие в директории проги

@Alex77755 · 05.11.2012, 18:01

Visual Basic
1
f = Dir(App.Path & "\.*", vbDirectory)

В этой строке ты указываешь папку где проверять и что искать
App.Path возвращает путь твоей программы
должно быть что-то типа

Visual Basic
1
f= Dir(Combo1.Text &"\*.*")

@gotemcity · 05.11.2012, 18:12 **[ТС]**

не это не помогает

может дело в том, что во втором combobox уже не папки должны быть, а файлы...!?...

@Alex77755 · 05.11.2012, 18:36

Visual Basic
1
If (GetAttr(App.Path & "\" & Combo2.Text & "\" & f) And vbDirectory) = 0 Then

это уже не нужно - закомментируй

@gotemcity · 05.11.2012, 19:06 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Click()
Dim f$
Combo2.Clear
f = Dir(Combo1.Text & "\*.*")
While f <> ""
If (GetAttr(App.Path & "\" & Combo2.Text & "\" & f) And vbDirectory) = 0 Then
Combo2.AddItem f
End If
f = Dir
Wend
End Sub

вот вроде бы все так сделал, но эффекта не какого....ошибок тоже не выдает....при выборе в комбо1 нужной папки в комбо2 стирается инфа и все....

@Alex77755 · 05.11.2012, 19:43

Лучше б выложил проект - лениво самому создавать что бы помочь
По идее должно быть так, но надо проверить в пошаговом

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Click()
Dim f$
Combo2.Clear
f = Dir(Combo1.Text & "\*.*")
While f <> ""
 
Combo2.AddItem f
 
f = Dir
Wend
End Sub

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25

	Отобразить в ComboBox имена папок из заданного каталога 05.11.2012, 11:39. Показов 3574. Ответов 28 Метки нет (Все метки) Всем добрый день! Каким образом добавить в ComboBox строки, чтобы им присваивались названия папок из указанной папки? Т.е. имеется папка "ПППП" в ней лежат папки "ППП1", "ППП2", "ППП3" и тд. Задача в том, чтобы при нажатии commandButton в Combo Box появлялся список папок "ППП1", "ППП2" и тд. А затем при выборе определенной папки в ComboBox в ListBox отображались бы файлы этой папки. Это возможно реализовать? Всем спасибо! З.ы.: я новенький и прошу не ругать! 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	05.11.2012, 11:59 [ТС]
	не устраивает то, что в там выводятся папки не нужные для работы, что усложняет нахождение нужной инфы... так то, что я описал реально реализовать!? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	05.11.2012, 12:04
	Судя по вашим вопросам, Вам может быть обратить внимание на компонент CommonDialog из состава Microsoft Common Dialog Control 6.0(SP6) ? 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	05.11.2012, 12:14 [ТС]
	я не совсем пойму как это поможет реализовать то, что я хочу!? 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	05.11.2012, 12:33 [ТС]
	хочу , чтобы при нажатии определенной кнопки (на разных кнопках надо указать дирректории из которых в дальнейшем добавляться папки будут) в combo box добавлялись название папок....а потом при выборе в combobox нужной папки, файлы находящиеся в этой папке отображались в listbox.... Добавлено через 54 секунды Список имен файлов из папки загрузить в ComboBox как в этой теме только применительно к папкам и на языке VB Добавлено через 10 минут Загрузить в combobox имена папок из указанной директории или вот на делфи.... 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	05.11.2012, 13:21 [ТС]
	Спасибо! Так а как теперь при выборе в combobox папки в listbox загружались файлы из этой папки? 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	05.11.2012, 14:45
	gotemcity, переименуй listbox в Combo2, или я не понимаю вопроса 0

dev.Free Заблокирован
	05.11.2012, 15:15
	Апострофф, ему надо, что в комбайне были все папки которые ему надо и чтобы при выборе данной папки в комбайне, в листе отобразились все файлы соответствующие данной папки. 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	05.11.2012, 16:17 [ТС]
	inv.DS прав, именно это нужно.. Добавлено через 43 минуты так как это сделать то?...как передать файлы в listbox2 или combobox2 после выбора определенной папки в combobox1? 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	05.11.2012, 18:12 [ТС]
	не это не помогает может дело в том, что во втором combobox уже не папки должны быть, а файлы...!?... 0