$PBExportHeader$nvo_filetimeinfo.sru
forward
global type nvo_filetimeinfo from nonvisualobject
end type
type filetime from structure within nvo_filetimeinfo
end type
type systemtime from structure within nvo_filetimeinfo
end type
type win32_file_attribute_data from structure within nvo_filetimeinfo
end type
end forward

type filetime from structure
	unsignedlong		dwLowDateTime
	unsignedlong		dwHighDateTime
end type

type systemtime from structure
	unsignedinteger		wYear
	unsignedinteger		wMonth
	unsignedinteger		wDayOfWeek
	unsignedinteger		wDay
	unsignedinteger		wHour
	unsignedinteger		wMinute
	unsignedinteger		wSecond
	unsignedinteger		wMilliseconds
end type

type win32_file_attribute_data from structure
	unsignedlong		dwFileAttributes
	filetime		ftCreationTime
	filetime		ftLastAccessTime
	filetime		ftLastWriteTime
	unsignedlong		nFileSizeHigh
	unsignedlong		nFileSizeLow
end type

global type nvo_filetimeinfo from nonvisualobject autoinstantiate
end type

type prototypes
FUNCTION boolean GetFileAttributesExA(ref string name,int k,ref WIN32_FILE_ATTRIBUTE_DATA attr) LIBRARY "Kernel32.dll"
FUNCTION boolean FileTimeToSystemTime(ref FILETIME dd,ref SYSTEMTIME s1) LIBRARY "Kernel32.dll"
FUNCTION boolean FileTimeToLocalFileTime(ref FILETIME d1,ref FILETIME d2) LIBRARY "Kernel32.dll"
end prototypes

forward prototypes
public function integer getfilemoddate (readonly string szwhatfilename, ref string as_moddate)
end prototypes

public function integer getfilemoddate (readonly string szwhatfilename, ref string as_moddate); /*------------------------------------------------------------------------------

 Function:			public nvo_filetimeinfo.Getfilemoddate

 Returns:         Integer

 Parameters:      readonly String szwhatfilename
                  reference String as_moddate

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 3/26/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/ 


WIN32_FILE_ATTRIBUTE_DATA fa
FILETIME fdt, fdt_local
SYSTEMTIME s_dt
boolean rtn
string sztmp

sztmp = szWhatFileName
IF NOT GetFileAttributesExA(sztmp, 0 ,fa) THEN 
	as_moddate = "Error - most likely Path is not Valid"
	RETURN - 1 
END IF

fdt.dwLowDateTime = fa.ftLastWriteTime.dwlowdatetime
fdt.dwHighDateTime = fa.ftLastWriteTime.dwhighdatetime

IF NOT FileTimeToLocalFileTime(fdt, fdt_local) THEN 
	as_moddate = "Could not convert to Local Time"
	RETURN - 1 
END IF 
IF NOT FileTimeToSystemTime(fdt_local,s_dt) THEN
	as_moddate = "Could not convert to System Time"
	RETURN - 1 
END IF
	

as_moddate = string(datetime(date(s_dt.wyear,s_dt.wmonth,s_dt.wday), &
								time(s_dt.whour,s_dt.wminute,s_dt.wsecond)),'yyyy-mm-dd hh:mm:ss')
								
RETURN  1 


end function

on nvo_filetimeinfo.create
call super::create
TriggerEvent( this, "constructor" )
end on

on nvo_filetimeinfo.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on