Klasörden dosya ismi ve kaydedilme tarihini almak

[search77]

Arkadaşlar Merhaba,
Aşağıdaki macro A1 hücresine klasörden dosya isimlerini alıyor.
Ben dosyanın klasöre kaydedilme (date modified) tarinide almak istiyorum B1 hücresine.
Bu bilgiyi bu macroya nasıl ekleyebilirim.
Saygılar.

Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
Set dc = f.Files
For Each Dosya In dc
i = i + 1
Cells(i + 1, 1) = Dosya.Name
Next
End Sub

 

[maliex]

Sub Dosya_İsimleri_Ve_Tarihleri()
    Dim ds, dc, f, s
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
    Set dc = f.Files
    
    For Each Dosya In dc
        i = i + 1
        Cells(i + 1, 1) = Dosya.Name
        Cells(i + 1, 2) = Dosya.DateLastModified
    Next
End Sub

 

[search77]

Sayın maliex öncelikle çok teşekkürler, bir şey daha rica edebilir miyim, kusura bakmayın sonradan fark ettim

Dosya ismi A2 hücresinden , Dosya modified tarihi B2 den başlayabilir mi? çok teşekkürler şimdiden

 

[maliex]

Sub Dosya_İsimleri_Ve_Tarihleri()
    Dim ds, dc, f, s
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
    Set dc = f.Files
    i=1
    For Each Dosya In dc
        i = i + 1
        Cells(i + 1, 1) = Dosya.Name
        Cells(i + 1, 2) = Dosya.DateLastModified
    Next
End Sub

 

[search77]

sayın maliex harika oldu, çok tşk ler , emeğinize sağlık