Sf1!a2&b2&c2&d2&e2 den itibaren dosya ad&boyut&Oluşturma&değiştirme&yol bilgileri?

[hsayar]

Sf1!a2&b2&c2&d2&e2 den itibaren dosya ad&boyut&Oluşturma&değiştirme&yol bilgileri?

linkinde sormuş ve cavabımı almıştım. Ancak alt klasörleride dahil metmek mümkünmüdür yani

c:\tablolarım yazdığımızda
c:\tablolarım\1
c:\tablolarım\2 vs deki bi,lgilerinde listelenmesi mümkün olurmu


ilave olarak xls ve doc listelensi demek nasıl olur yada tümn dosyalar listelensin demek nasıl olur

ayrıca e2 ye dosyanın tam yoluda yazsın


Daha Evvelki Soru ve cevap; Alt Klasör hariç klasörün içeriğini listeler, fikir verme açısından....

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

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]

hatırlatma mesajıdır....
saygılarımla

 

[hsayar]

hatırlatma mesajıdır....
saygılarımla

 

[hsayar]

hatırlatma mesajıdır....
saygılarımla
______________

 

[hsayar]

hatırlatma mesajıdır....
saygılarımla

 

[hsayar]

hatırlatma mesajıdır....
saygılarımla