DOSYA YOLUNA GÖRE DOSYA OLUŞTURMA TARİHİ GETİRME

[korkuttum]

Merhaba,

Alt alta hücrelerde dosya yolları yazıyor ve her ücrenin yanına o dosya yolundaki dosyanın oluşturma tarihini yazmam gerekiyor.
Berlirli bir hücreden oluşturma tarihini alabiliyorum ama alt alta satırlarda nasıl olacağını bulamadım.
Fonksiyon yazmayı denedim ondada sadece üzerinde çalıştığınız dosyanın tarihi geliyor.
Bahsettiğim işi fonksiyon ile yapmak çok işime yarayacak ama nasıl olur bilmiyorum, yardımınıza ihtiyacım var.

Teşekkürler.

 

[EmrExcel16]

Merhaba , deneyiniz..

Private Sub CommandButton1_Click()
    On Error Resume Next
    Range("I1:I100").ClearContents
    For i = 1 To Cells(Rows.Count, 8).End(3).Row
        Cells(i, 9) = CreateObject("Scripting.FileSystemObject").GetFile(Cells(i, 8)).DateCreated
    Next
    MsgBox "islem tamam"
End Sub

 

[korkuttum]

Merhaba, ilginiz için çok teşekkürler işimi görüyor, almam gereken tarihi ekteki görselde bulabilirsiniz, oluşturma tarihi dosya kopyalandıkça güncelleniyor. Bu tarihi nasıl alabiliriz.

 

[Haluk]

        Cells(i, 9) = CreateObject("Scripting.FileSystemObject").GetFile(Cells(i, 8)).DateLastModified

.

 

[korkuttum]

Teşekkürler Haluk bey ama yine 9.03.2022 08:59 geliyor ekte özelliklerini paylaştığım dosyayı ekliyorum bakabilirmisiniz.

 

[Haluk]

Bir de şunu deneyin ...

Sub Test()
    MsgBox FileDateTime("C:\TestFolder\TedarikciSiparisi_216634.xlsx")
End Sub

.

 

[korkuttum]

Yok maalesef yine aynı tarih

bu tarihi alamıyorum.