Конференция VBStreets

**--=GAMER=--** » 19.02.2005 (Сб) 7:42

Мне нужно найти все файлы с расш. тхт и записать их названия в combobox. Пожалуйста с примерами. Спасибо.

**Sirik** » 19.02.2005 (Сб) 9:36

Код: Выделить всё: Private Sub Form_Load() Dim strFileName As String strFileName = Dir("*.txt") While strFileName <> "" Combo1.AddItem strFileName strFileName = Dir Wend End Sub

**A.A.Z.** » 19.02.2005 (Сб) 10:12

Не-а, не будет работать :roll:

Надо по всем папкам пройтись :roll:

В MSDN есть пример :roll:

**Sirik** » 19.02.2005 (Сб) 10:15

2 A.A.Z.

Код вобще-то рабочий, только на определённую папку

**A.A.Z.** » 19.02.2005 (Сб) 10:21

А, я думал, ты постишь весь код :oops:

Сорри

**--=GAMER=--** » 20.02.2005 (Вс) 8:18

А как задать эту определёную папку и отбросить в комбобоксе .тхт?
А то он ищет только в папке с проектом.

**Ruslan Demidow** » 20.02.2005 (Вс) 9:36

Код: Выделить всё: Private Sub Form_Load() Dim strFileName As String strFileName = Dir("C:\ТвойКаталог\*.txt") While strFileName <> "" Combo1.AddItem strFileName strFileName = Dir Wend End Sub

**--=GAMER=--** » 21.02.2005 (Пн) 7:03

Спасибо

Поиск файла.