Файлы и папки

Вопрос

Как получить список всех файлов и папок в определенной папке?

Ответ

Это можно сделать с помощью функции Dir. Например:

Поставь на форму ListBox и напиши такой код:

Private Sub Form_Load()
ListBox1.Clear
st = Dir("C:\*.*", vbDirectory)
Do While Len(st)
st = Dir
ListBox1.AddItem st
Loop
End Sub

Rafis