Получить последнюю измененную дату файла в VB6

Question

Как вы можете получить последнюю измененную дату файла с помощью VB6?

Answer 1

Там есть встроенная функция VB6 для этого - нет необходимости в FSO (хотя FSO отлично подходит для более сложных операций с файлами)

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

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

Answer 2

Вы можете использовать FileSystemObject вот example

Вы также можете проверить MSDN documentation образцы для написания сценариев, но они должны быть переводимым в VB6 легко.

Answer 3

Добавить ссылку на Microsoft Scripting Runtime (Проект-> Список использованной литературы ...) и используйте следующий код:

Dim fso As New FileSystemObject 
Dim fil As File 

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

Answer 4

Я рекомендую использовать Windows API вызова: http://www.ex-designz.net/apidetail.asp?api_id=128

Тогда вы можете получить либо дату создания, либо дату последнего изменения.