Sayfa1 a2 den itibaren klasör içindeki xls dosyalarını listele

[hsayar]

Merhaba Arkadaşlar
a1 hücresine
c:\tablolarım
klasöründeki xls dosyalarının tamamını
A2 den itibaren dosya adlarını
b2 den itibaren dosya boyutunu
c2 den itibaren dosya oluşturulma tarihini
d2 den itibaren dosya değiştirilme tarihini

listeleyecek bir makro mümkünmüdür?

saygılarımla

 

[Orion1]

Ekli dosyayı inceleyiniz.
A1 hücresine Dosyaların bulunduğu klasörü yazınız.

Sub dosyalar()
Dim sat As Long
sat = 2
Range("A2:D65536").ClearContents
    Set lst = CreateObject("Scripting.FileSystemObject").GetFolder(Range("A1").Value)
    For Each dosya In lst.Files
        If Right(dosya.Name, 4) = ".xls" Then
            Cells(sat, "A").Value = dosya.Name
            Cells(sat, "B").Value = dosya.Size
            Cells(sat, "C").Value = dosya.datecreated
            Cells(sat, "D").Value = dosya.datelastmodified
            sat = sat + 1
        End If
    Next
    Set lst = Nothing
    MsgBox "Dosya Bilgileri aktarıdı..!!", vbOKOnly
End Sub

 

[hsayar]

teşekkürler orion2 pathi de otamatik alan denetim olsa iyi olurdu...
hani ... oluyor sen seçiyorsun ya

 

[hsayar]

Sayın hocalarım bu konu ile ilgili olduüu için soruyorum
Altklasörlerler birlikte listeleme masıl olmalı
Örneğin
c:\hsr\ altındaki üretim, finansman, personel gibi bir çok klasörümüz var bu klasörlerin tamamındaki xls, doc tipi dosyaların

A2 den itibaren dosya ad & uzantı larını
b2 den itibaren dosya boyutunu
c2 den itibaren dosya oluşturulma tarihini
d2 den itibaren dosya değiştirilme tarihini

listeleyecek bir makro mümkünmüdür?

 

[hsayar]

yanlış oldu... özür dilerim