Cách kiểm tra dấu thời gian của tệp văn bản bằng VBA

Question

Tôi đang cố gắng viết mã trong Excel 2003 VBA (Windows XP) để tìm xem tệp TXT bên ngoài có dấu thời gian khác không, vì vậy tôi có thể 'nhập' dấu chấm đó nếu nó thay đổi .

Có chức năng nào trong VBA có thể cứu tôi không?

Answer 1

Tôi nghĩ bạn muốn ngày sửa đổi. Nếu có, hãy xem điều này

Debug.Print FileDateTime("C:\Sample.txt") 

Định dạng ngày và giờ được hiển thị dựa trên cài đặt ngôn ngữ của hệ thống.

Sửa

Sử dụng 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