перебрать файлы в каталоге

[td]

Как можно получить названия всех фалов в каталоге?

[moderator]

Код: Выделить всё

Dim sFile as String
sFile = Dir("c:\my_dir")
While sFile <> ""
  '// do smth
  sFile = Dir
Wend

Вроде так, писал по памяти.

[FaKk2]

ипользуй FileListBox. Задай ему путь к каталогу и он покажет все файлы.

[FaKk2]

шустрый какой модератор все таки...
только хотел первым ответить, а он тут как тут...

[td]

[quote="moderator"]

Код: Выделить всё

Dim sFile as String
sFile = Dir("c:\my_dir")
While sFile <> ""
  '// do smth
  sFile = Dir
Wend

А как имена файлов отсюда взять?

[moderator]

А как имена файлов отсюда взять?

Ну вот так сделай:

Код: Выделить всё

Dim sFile as String
sFile = Dir("c:\my_dir")
While sFile <> ""
  '// do smth
   MsgBox sFile
  sFile = Dir
Wend


Теперь понятно?

[td]

не очень.. я в месте, где ду самфин, добавляю значения в комбобокс. (Ведь sFile и содержит очередное имя?)
А в результате у меня получается, что он пустой..

[corgi]

а это потому что слэша в конце строки нет

Код: Выделить всё

Dim sFile As String
sFile = Dir("c:\mydir\")
While sFile <> ""
  '// do smth
   MsgBox sFile
  sFile = Dir
Wend