Public Function GetFolderCreateTime(NameFolder As String, Out_CreationFT As FILETIME) As Double

Dim hFolder As Long, FT As FILETIME, lRet As Long

   GetFolderCreateTime = -1

   hFolder = CreateFile(NameFolder, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0&)

   If hFolder = INVALID_HANDLE_VALUE Then

    Exit Function

   End If

  

   lRet = GetFileTime(hFolder, Out_CreationFT, FT, FT)

   If lRet = 0 Then

    Exit Function

   End If

'если FAT32

   lRet = LocalFileTimeToFileTime(Out_CreationFT, FT)

   If lRet = 0 Then

    Exit Function

   End If

   Out_CreationFT = FT

End Function

Dim fileTime As FILETIME

' Здесь происходит получение времени создания файла с помощью GetFileTime и сохранение его в fileTime

 

' Получение информации о часовом поясе

Dim timeZoneInfo As TIME_ZONE_INFORMATION

GetTimeZoneInformation timeZoneInfo

 

' Преобразование времени из UTC в местное время с учетом летнего времени

Dim localFileTime As FILETIME

FileTimeToLocalFileTime fileTime, localFileTime

Dim localSystemTime As SYSTEMTIME

FileTimeToSystemTime localFileTime, localSystemTime

Dim localTime As Date

SystemTimeToTzSpecificLocalTime timeZoneInfo, localSystemTime, localTime