Nhận ngày chỉnh sửa cuối cùng của tệp trong VB6

Question

Làm thế nào để bạn có được ngày sửa đổi cuối cùng của tệp bằng VB6?

Answer 1

Có một xây dựng trong chức năng VB6 cho rằng - không cần FSO (mặc dù FSO là rất tốt cho nhiều hoạt động tập nâng cao)

Từ http://msdn.microsoft.com/en-us/library/aa262740%28VS.60%29.aspx

Dim MyStamp As Date 
MyStamp = FileDateTime("C:\TESTFILE.txt") 

Answer 2

Bạn có thể sử dụng FileSystemObject đây là một example

Bạn cũng có thể kiểm tra MSDN documentation các mẫu được cho kịch bản nhưng họ cần phải thể dịch để VB6 dễ dàng.

Answer 3

Thêm một tham chiếu đến Microsoft Scripting Runtime (dự án-> Tài liệu tham khảo ...) và sử dụng đoạn mã sau:

Dim fso As New FileSystemObject 
Dim fil As File 

Set fil = fso.GetFile("C:\foo.txt") 
Debug.Print fil.DateLastModified 

Answer 4

tôi sẽ khuyên bạn sử dụng các cửa sổ api gọi: http://www.ex-designz.net/apidetail.asp?api_id=128

Sau đó, bạn có thể nhận ngày tạo hoặc ngày sửa đổi lần cuối.