BCX Console Demonstration Program s74.bas
|
IF COMMAND$ = "" THEN
PRINT "Usage: S74 FileName.Ext"
END
END IF
PRINT COMMAND$, " ", FileDateTime$(COMMAND$)
FUNCTION FileDateTime$(Filenam$)
LOCAL fd AS WIN32_FIND_DATA
LOCAL st AS SYSTEMTIME
LOCAL fh AS HANDLE
LOCAL Temp$
LOCAL Text$
Text$ = Filenam$
fh = FindFirstFile(Text$, &fd)
IF fh = INVALID_HANDLE_VALUE THEN
EXIT FUNCTION
END IF
FindClose(&fh)
FileTimeToLocalFileTime(&fd.ftLastWriteTime, &fd.ftLastWriteTime)
FileTimeToSystemTime(&fd.ftLastWriteTime, &st)
GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, NULL, Text$, 255)
Temp$ = Text$
GetTimeFormat(LOCALE_USER_DEFAULT, TIME_NOSECONDS, &st, NULL, Text$, 255)
FUNCTION = Temp$ & " " & Text$
END FUNCTION