Получить дату последнего изменения файла в 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

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

Dim fso As New FileSystemObject
Dim fil As File

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

Answer 3

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

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

Answer 4

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

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