Xác định thời gian lưu cuối của file

[sony18102012]

Xin chào anh/chị

Hiện tại em có tìm hiểu thì có đoạn code dùng để xác định thời gian lưu của file hiện hành thôi.

Sub GetLastModified()
MsgBox ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub

Mong anh chị hỗ trợ giúp từ file A mà xác định thời gian lưu của file B.

Cám ơn.

 

[Maika8008]

Xin chào anh/chị

Hiện tại em có tìm hiểu thì có đoạn code dùng để xác định thời gian lưu của file hiện hành thôi.

Sub GetLastModified()
MsgBox ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub

Mong anh chị hỗ trợ giúp từ file A mà xác định thời gian lưu của file B.

Cám ơn.

Thay tên và đường dẫn file B

Sub GetLastModified()
Dim fso As Object, dDate As Date
    Set fso = CreateObject("Scripting.FileSystemObject")
    dDate = fso.GetFolder( "D:\GoogleDrive2\CaNhan").Files("BamDayMang.docx").DateLastModified
    Set fso =  Nothing
End Sub