EXCEL' den açtığım TXT dosyanın oluşturma tarihini öğrenebilirmiyim

[ongbey]

Arkadaşlar benim amacım Excel' den ismiyle açtığım bir txt dosyanın en son kayıt tarihini (ya da dosya oluşturma tahini) öğrenebilirmiyim.
Şimdiden teşekkürler.

Not: TXT dosya Excel dışındaki farklı bir program tarafından oluşturulmuştur.

 

[Zeki Gürsoy]

Sub test()
    Call ShowFileInfo("c:\xyz.txt")
End Sub

Sub ShowFileInfo(filespec)
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = "Created: " & f.DateCreated
    MsgBox s
End Sub

 

[ongbey]

Zeki bey çözümünüz için çok teşekkürler daha denemedim ama çalışacağından eminim.
Saygılarımla.

 

[ongbey]

Malesef Kod çalışmadı

Zeki bey, verdiğiniz kodu çalıştıramadım. Call test deyince yada Makro listesinden çalıştırınca "Runtime error 429 ActiveX component can't create object" mesajı veriyor.
Bunu gidermek için daha önceki bilgilerime dayanarak Dim fs,f declarasyonu ekledim ama yine de çalışmadı. Eksik bir komut mu var kontrol edebilirseniz sevinirim.

Ayrıca konuyla ilgili olarak iki sorum daha olacak;

Söz konusu dosyanın XXX.txt isminde olması zorunlu mu? Benim dosyam XXX.abc olabilir mi* Sonuçta txt dosyası yani Notepad ile açılabiliyor, sadece ismi değişik.

İkinci bir sorum ise ben zaten bu dosyayı daha önce açmayı becerdim ve içinden verimi alabiliyorum. Yani asıl sorunum açık olan mevcut bir txt dosyasının kayıt tarihini öğrenmek. Bu zor bir işlem ise sizin metodunuzu da kullanmaya çalışacağım. (tabi çalıştırınca)
Selamlar.

Ongbey

 

[ongbey]

Konu hakkında yardımcı olabilir misiniz ?

 

[Zeki Gürsoy]

Şartı yoktur. Bu haliyle tekrar test eder misiniz?

Sub test()
    Open "c:\xxx.abc" For Output As #1
        Print #1, "ongbey"
    Close #1
    Call ShowFileInfo("c:\xxx.abc")
End Sub
Sub ShowFileInfo(filespec)
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = "Created: " & f.DateCreated
    MsgBox s
End Sub

 

[ongbey]

Zeki bey cevabınız için çok teşekkürler, kodu çalıştırabildim.