| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following function returns the creation time of a file: \par \par Option Explicit \par \par Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long \par Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long \par Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long \par Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long \par Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long \par \par Private Const MaxPathName = 128 \par \par Private Type OFSTRUCT \par cBytes As Byte \par fFixedDisk As Byte \par nErrCode As Integer \par Reserved1 As Integer \par Reserved2 As Integer \par szPathName(MaxPathName) As Byte \par End Type \par \par Private Type FILETIME \par LowDateTime As Long \par HighDateTime As Long \par End Type \par \par Private Type SYSTEMTIME \par Year As Integer \par Month As Integer \par DayOfWeek As Integer \par Day As Integer \par Hour As Integer \par Minute As Integer \par Second As Integer \par Milliseconds As Integer \par End Type \par \par \par 'Purpose : Returns the file creation time for a specified file. \par 'Inputs : sPathFileName The path and file name of the file. \par 'Outputs : Returns the file creation time of the specified file, \par ' or False if an error occurred. \par \par Function FileCreationTime(sPathFileName As String) As Variant \par Dim lHFile As Long, lRetVal As Long \par Dim tCreationTime As FILETIME, tLassAccessTime As FILETIME, tOFS As OFSTRUCT \par Dim tLastWriteTime As FILETIME, tSysTime As SYSTEMTIME, tCreationTimeLocal As FILETIME \par Const clOfRead = &H0 \par \par 'on error resume next \par tOFS.cBytes = Len(tOFS) \par lHFile = OpenFile(sPathFileName, tOFS, clOfRead) \par If lHFile Then \par lRetVal = GetFileTime(lHFile, tCreationTime, tLassAccessTime, tLastWriteTime) \par lRetVal = FileTimeToLocalFileTime(tCreationTime, tCreationTimeLocal) \par lRetVal = FileTimeToSystemTime(tCreationTimeLocal, tSysTime) \par FileCreationTime = DateSerial(tSysTime.Year, tSysTime.Month, tSysTime.Day) + TimeSerial(tSysTime.Hour, tSysTime.Minute, tSysTime.Second) \par lRetVal = CloseHandle(lHFile) \par End If \par If Err.LastDllError Then \par 'An error occurred (check if file is missing) \par FileCreationTime = False \par End If \par On Error GoTo 0 \par End Function \par } |
Returning a files creation time |
India web developer web development India | India web development company India ecommerce web developer