Option Explicit

Private Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
 End Type

Private Type SYSTEMTIME
   wYear As Integer
   wMonth As Integer
   wDayOfWeek As Integer
   wDay As Integer
   wHour As Integer
   wMinute As Integer
   wSecond As Integer
   wMilliseconds As Integer
 End Type

 Private Const GENERIC_WRITE = &H40000000
 Private Const OPEN_EXISTING = 3
 Private Const FILE_SHARE_READ = &H1
 Private Const FILE_SHARE_WRITE = &H2

 Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, _
  lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, _
  lpLastWriteTime As FILETIME) As Long

 Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _
  ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, _
  ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

 Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

 Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

 Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long


 Sub Test()
   Dim lngHandle As Long
   Dim Ft1 As FILETIME, Ft2 As FILETIME, SysTime As SYSTEMTIME

   'открытие файла
   lngHandle = CreateFile("C:\Users\FileNo2.txt", GENERIC_WRITE, _
       FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, _
       OPEN_EXISTING, 0, 0)
   'времена файла
   GetFileTime lngHandle, Ft1, Ft1, Ft2
   'преобразование форматов времени
   FileTimeToLocalFileTime Ft2, Ft1
   'преобразование форматов времени
   FileTimeToSystemTime Ft1, SysTime
   MsgBox Str$(SysTime.wYear) & "-" & Str$(SysTime.wMonth) & "-" & _
    Str$(SysTime.wDay) & " " & Str$(SysTime.wHour) & ":" & _
    Str$(SysTime.wMinute) & ":" & Str$(SysTime.wSecond) & "." & _
    Str$(SysTime.wMilliseconds)
   'закрытие файла
   CloseHandle lngHandle
 End Sub