2012-05-30 23 views
6

TXT dosyasının farklı zaman damgasının dışında olup olmadığını öğrenmek için Excel 2003 VBA'da (Windows XP) bir kod yazmaya çalışıyorum, böylece değiştirildiyse 'içe aktarabilirim' .VBA kullanarak bir metin dosyasının zaman damgasını kontrol etme

VBA'da beni kurtarabilecek herhangi bir işlev var mı?

+0

Evet :) BTW hangi zaman damgası yaklaşık orada bahsediyoruz edilir? Oluşturulma Tarihi veya Değiştirilme Tarihi? –

cevap

10

Sanırım değiştirilmiş tarihi istiyorsunuz. Eğer öyleyse, o zaman bu

Bu tarih ve saatin formatı, sisteminizin yerel ayarlarına dayanmaktadır.

Düzenleme

kullanma FileSystemObject

Option Explicit 

Sub Sample() 
    Dim oFS As Object 
    Dim sFile As String 

    sFile = "C:\MyFile.txt" 

    Set oFS = CreateObject("Scripting.FileSystemObject") 

    '~~> Created Date 
    Debug.Print "Created Date : "; oFS.GetFile(sFile).DateCreated 

    '~~> Modified Date 
    Debug.Print "Modified Date : "; oFS.GetFile(sFile).Datelastmodified 

    Set oFS = Nothing 
End Sub 
+0

Evet, bu çözüm, teşekkürler :) – MrB

+0

@Bojan, lütfen cevabı çözülmüş olarak işaretleyin. – Reafidy