Klasördeki dosya isimlerini tabloya yazdırmak

Merhaba.
Klasörde bulunan dosyaların isimlerini Access tabloma nasıl yazdırabilirim, yardımlarınızı rica ediyorum.
Saygı ve selamlarımla.

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

Sn.Kural
Sizin belirttiğinizi yapamadım.
Ekte formdaki düğmenin olay yordamına bu kodu nasıl ekleyebiliriz, rica etsem?

Dosya ekte, inceleyip olumlu veya olumsuz dönüş yapınız...

Teşekkür ederim.

Merhaba,

Benim böyle bir şeye ihtiyacım vardı, teşekkürler.
Dosyayı indirdim. Ancak, butona bastığımda tabloya aktarmıyor, hata da vermiyor.

Veritabanını açtım, tablo içindeki verileri sildim ve butona bastım.
Aktardığını görmek için bunu yaptım ama, aktarmadı.

Bu arada, word, pdf, Excel vb formattaki dosyaların isimlerini de atıyor olması benim işimi görecektir.
Ancak, ben bir türlü klasör içindeki dosyaları aktaramadım. yardımcı olabilir misiniz?

Teşekkürler.

(25/07/2014, 21:45)KJS yazdı: Dosya ekte, inceleyip olumlu veya olumsuz dönüş yapınız...