aşşağıdaki kod işinizi görecektir.
debug.print satırının bulunduğu kısma tabloya kayıt komutlarını ekleyin.

Dim fso As Object

Dim objFolder As Object

Dim objFileList As Object

Dim vFile As Variant

Dim sFolder As String



sFolder = CurrentProject.Path



Set fso = CreateObject("Scripting.FileSystemObject")

Set objFolder = fso.GetFolder(sFolder)

Set objFileList = objFolder.Files



For Each vFile In objFileList

    Debug.Print vFile

Next vFile