Доработай этот код, просто сейчас некогда дорабатывать. Будут вопросы пиши.

Public Sub x()
Dim fso As New FileSystemObject
Dim i As File

For Each i In fso.GetFolder("d:\Images").Files
Debug.Print i.Name
Next

Set fso = Nothing

End Sub

У меня не установлен VB6, я напишу код на VBA в MS Access 2003, бует нормально?

Отлично, я спутал, в Excel :)

В Excel Macro>Visual Basic Editor нажми два раза на Sheet1 подключи библиотеку Tools>References поставь галочку Windows Script Host Object Model
и вставь этот код. Он сканирует весь диск D:\ и вставляет в Excel название папок и файлов. Кароче запустишь и посмотришь.

Option Explicit
Public i As Long

Public Sub GetNameFile()
Dim fso As New FileSystemObject
Dim iFolder As Folder
Dim iFile As File
i = 1
GetSubfolders ("d:\")

End Sub

Public Sub GetSubfolders(strPath As String)
Dim fs As New FileSystemObject
Dim f As Folder

Set f = fs.GetFolder(strPath)
EnumerateSubFolders f
End Sub

Public Sub EnumerateSubFolders(f As Folder)
Dim sf As Folder

For Each sf In f.SubFolders

Worksheets("Sheet1").Cells(i, 1).Font.Size = 14
Worksheets("Sheet1").Cells(i, 1).Font.Color = RGB(246, 10, 32)
Worksheets("Sheet1").Cells(i, 1) = sf.Path
i = i + 1
GetFileNames sf
EnumerateSubFolders sf
Next

End Sub

Public Sub GetFileNames(sf As Folder)
Dim iFile As File

For Each iFile In sf.Files
Worksheets("Sheet1").Cells(i, 1) = iFile.Name
i = i + 1
Next

End Sub

Держи файл xls. При открытие появится форма с кнопкой "Scan Folder" нажмешь

Протестировал, у меня все работает, в коде только нужно менять путь корневой папки, я думаю это уже не проблема.

Если нужно сканировать диск с:\ или не весь диск а конкретную папку с вложенными папками и файлами то меняешь в коде вместо диска d:\

Тебе задачка. Зделай так чтоб ты могла выбрать с формы конкретную папку или конкретный диск. Зделай ее боле универсальной.