+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Klasördeki dosya isimlerini tabloya yazdırmak (/konu-klasordeki-dosya-isimlerini-tabloya-yazdirmak.html)
Sayfalar:
1
2
Klasördeki dosya isimlerini tabloya yazdırmak - temre - 25/07/2014
Merhaba.
Klasörde bulunan dosyaların isimlerini Access tabloma nasıl yazdırabilirim, yardımlarınızı rica ediyorum.
Saygı ve selamlarımla.
Cvp: Klasördeki dosya isimlerini tabloya yazdırmak - Kur@l - 25/07/2014
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
Cvp: Klasördeki dosya isimlerini tabloya yazdırmak - temre - 25/07/2014
Sn.Kural
Sizin belirttiğinizi yapamadım.
Ekte formdaki düğmenin olay yordamına bu kodu nasıl ekleyebiliriz, rica etsem?
Cvp: Klasördeki dosya isimlerini tabloya yazdırmak - KJS - 25/07/2014
Dosya ekte, inceleyip olumlu veya olumsuz dönüş yapınız...
Cvp: Klasördeki dosya isimlerini tabloya yazdırmak - temre - 26/07/2014
Teşekkür ederim.
RE: Cvp: Klasördeki dosya isimlerini tabloya yazdırmak - aliyuzen - 10/12/2021
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...