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

Kak uznat' kakie faili nahodiatsia v ukazannoj direktorii i polnie puti failov?

Можно так:

Dim Directory As String, i As Integer, n As Integer
Dim ListFiles() As String
Directory='C:Windows '
n=100
ReDim ListFiles(n-1)
ListFiles(i)=Directory & Dir(Directory & '*.*',7)
Do Until Dir()=''
i=i+1
if i mod n = 0 then
ReDim Preserve ListFiles(i+n-1)
end if
ListFiles(i)=Directory & Dir()
Loop
ReDim Preserve ListFiles(i)

ListFiles() - массив будет содержать полные пути всех файлов в каталоге.
Тут i,n используется просто для увелечения скорости работы, если каждый раз делать ReDim Preserve будет работать медленнее, а так только для после добавления 100 файлов делается ReDim.
Мог тут ошибиться с индексами и +-1, проверь если будешь использовать.

Если код будет исполнятся в модуле формы можно сделать еще так, кладешь на форму невидимый FileListBox, проставляешь у него свойства что бы он отображал файлы со всеми атрибутами, и пишешь такой код на загрузку формы:

Private Sub Form_Load()
Dim ListFiles() As String, Directory$,i
Directory='C:Windows '
File1.Path = Directory
ReDim ListFiles(File1.ListCount - 1)
For i = 0 To File1.ListCount - 1
ListFiles(i) = Directory & File1.List(i)
Next i
End Sub