Klasördeki dosya isimlerini kopyalama

[k0081]

Merhaba arkadaşlar;

A sütununa, bir klasör içindeki dosyaların isimlerini, buton yardımı ile nasıl kopyalatabilirim?

 

[muygun]

Merhaba;
ilgili sayfada kod bölümüne;

Sub klasördeki_dosyalar()
Columns("A:A").Select
Selection.ClearContents
Range("C1").Select
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder([C1])
'sabit klasör yolu yazmak isterseniz üstteki satırı Set f = ds.GetFolder("d:\04_excel(ev)\00_1") şeklinde düzenleyin
Set dc = f.Files
For Each dosya In dc
c = c + 1
Cells(c, 1) = dosya.Name
Next
End Sub

kodlarını ekleyin ve bir butona bağlayın.
C1 hücresine yazacağınız klasör yolu ile sonuç alırsınız.
yada kodlardaki
Set f = ds.GetFolder([C1])
satırını
Set f = ds.GetFolder("d:\04_excel(ev)\00_1")
şeklinde düzenleyerek sabit yol oluşturabilirsiniz.

Kodlar alıntıdır.

İyi çalışmalar.

 

[k0081]

hocam çok teşekkürler,, tamamdır..