Klasördeki dosya isimlerini tabloya yazdırmak

1 2
25/07/2014, 13:21

temre

Merhaba.
Klasörde bulunan dosyaların isimlerini Access tabloma nasıl yazdırabilirim, yardımlarınızı rica ediyorum.
Saygı ve selamlarımla.
25/07/2014, 14:50

Kur@l

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

25/07/2014, 15:04

temre

Sn.Kural
Sizin belirttiğinizi yapamadım.
Ekte formdaki düğmenin olay yordamına bu kodu nasıl ekleyebiliriz, rica etsem?
25/07/2014, 21:45

KJS

Dosya ekte, inceleyip olumlu veya olumsuz dönüş yapınız...
26/07/2014, 19:03

temre

Teşekkür ederim.
10/12/2021, 10:19

aliyuzen

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...
1 2