Здравствуйте, Mironicuss!
1. Первый способ. Поместить на форму контрол FileListBox. Чтоб спрятать его на форме установите свойство Visible=False. Свойством Pattern можете указать файлы по маске. Также не забудьте установить атрибуты, с которыми файлы могут отображаться в списке: Archive, Hidden, Normal, ReadOnly, System. Пример использования в приложении.
2. И код для второго способа тоже в приложении.

Приложение:
1==============================Dim lFile As LongFile1.Path = "c:"For lFile = 0 To File1.ListCount - 1 MsgBox File1.List(lFile)Next lFile2==============================Dim sFile As StringsFile = Dir$("c:", vbNormal + vbHidden + vbReadOnly + vbSystem)Do While sFile <> "" MsgBox sFile sFile = Dir$()Loop

Здравствуйте, Mironicuss!

t = dir("c:\windows\*.*");
do while (t<>"")
msgbox t
t = dir
loop

еще можно через FileSystemObject там больше возможностей... про него можно прочитать в MSDN.. если заинтересует, но не сможете разобраться пишите, я дам вам пример

Здравствуйте, Mironicuss!
На форме текстовое поле text1 и кнопка command 1

код для кнопки в приложении...


Приложение:
Private Sub Command1_Click()Dim fso As Scripting.FileSystemObjectDim fld As Scripting.FolderDim fil As Scripting.FileSet fso = New Scripting.FileSystemObjectSet fld = fso.GetFolder(Text1.Text)For Each fil In fld.FilesDebug.Print fil.NameNext filEnd Sub

Здравствуйте, Mironicuss!
Смотрите код в приложении

Приложение:
Dim a(1000) As StringDim i As IntegerOn Error GoTo errsFor i = 0 To 1000File1.ListIndex = File1.ListIndex + 1a(File1.ListIndex) = File1.FileNameNext iExit Suberrs:If Err.Number = 381 Then Err.Clear: Exit Sub