|
|
Joined: Dec 1999
Posts: 30,867
Master Elite Member
|
FUNCTION DirData_ToDateModified (BYREF pDirData AS DIRDATA) AS STRING
'Purpose
' Parses the LastWriteTime from an existing DIRDATA structure.
'Parameters
' pDirData (DIRDATA) = The structure representing the file we're working with.
'Return (STRING)
' Returns a string representing the date the file was last modified.
'Dependencies
' The following files must be included: WIN32API.INC
'Version History
' 1.00 2010.03.02 Tested by Russ Tanner on PB/CC 5.03.
LOCAL pFileTime AS FileTime
LOCAL pSystemTime AS SystemTime
FileTimeToLocalFileTime(BYVAL VARPTR(pDirData.LastWriteTime), pFileTime)
FileTimeToSystemTime(pFileTime, pSystemTime)
FUNCTION = _
FORMAT$(pSystemTime.wMonth, "##") + _
"/" + FORMAT$(pSystemTime.wDay, "##") + _
"/" + FORMAT$(pSystemTime.wYear, "####") + _
" " + FORMAT$(pSystemTime.wHour, "##") + _
":" + FORMAT$(pSystemTime.wMinute, "##") + _
":" + FORMAT$(pSystemTime.wSecond, "##")
END FUNCTION
|
|
|
|
Entire Thread
|
DirData_ToDateModified()
|
Russ
|
03/02/10 08:40 AM
|
|
|
|