Source$ = "D:\data" BackupDrive$ = "L:" Call DeleteSubfolders (BackupDrive$) Dest$ = BackupDrive$ & "\" & DATE$ MKDIR Dest$ CALL Backup (Source$, Dest$)
Name SourceFile As DestinationFile ' << make backup FIRST, by MOVing original FileCopy DestinationFile, SourceFile ' << restore original from backup copy
Function SetFileDateandTime(ccsFileSpec As String,ft As SYSTEMTIME)Export As Long 'common32.bas
Local hFile As Long
Local Result As Long
Local ccsFileTime As FILETIME
Local fLocTime As FILETIME
hFile = CreateFile(ccsFileSpec + Chr$(0), ByVal %GENERIC_READ Or %GENERIC_WRITE, _
ByVal 0, ByVal %NULL, ByVal %OPEN_ALWAYS, _
ByVal %FILE_ATTRIBUTE_NORMAL, ByVal %NULL)
' convert system date/time to file structure.
SystemTimeToFileTime ft, fLocTime
' convert local file time to UTC file time
' setfiletime expects a time that is relative to utc time.
LocalFileTimeToFileTime fLocTime, ccsFileTime
' set the file time
Result = SetFileTime(ByVal hFile, ByVal %NULL, ByVal %NULL, ccsFileTime)
CloseHandle hFile
Function = Result
End Function
' SetFileDate - Set the time and date of a file
'Scott T?
SUB SetFileDate(sFileName AS STRING, _
iYear AS LONG, iMonth AS LONG, iDay AS LONG, _
iHour AS LONG, iMinute AS LONG, iSecond AS LONG) EXPORT
LOCAL nFile AS LONG
LOCAL hFile AS DWORD
LOCAL CreationTime AS FILETIME
LOCAL LastAccessTime AS FILETIME
LOCAL LastWriteTime AS FILETIME
LOCAL ST AS SYSTEMTIME
LOCAL LT AS FILETIME
LOCAL lpReOpenBuff AS OFSTRUCT
TRY
nFile = FREEFILE
OPEN sFileName FOR INPUT ACCESS READ LOCK SHARED AS #nFile
CATCH
EXIT SUB
FINALLY
hFile = FILEATTR(nFile,2)
GetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
CLOSE #nFile
FileTimeToLocalFileTime LastWriteTime, LT
FileTimeToSystemTime LT, ST
ST.wYear = iYear
ST.wMonth = iMonth
ST.wDay = iDay
ST.wHour = iHour
ST.wMinute = iMinute
ST.wSecond = iSecond
SystemTimeToFileTime ST, LT
LocalFileTimeToFileTime LT, LastWriteTime
SetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
END TRY
END SUB
SUB SetDateAndTime(BYVAL sFilename AS STRING, BYVAL sfiletimeinfo AS STRING ) 'Pierre B?
LOCAL CreationTime AS FILETIME
LOCAL LastAccessTime AS FILETIME
LOCAL LastWriteTime AS FILETIME
LOCAL hFile AS DWORD
LOCAL FileNum AS DWORD
IF LEN(sfiletimeinfo) <> 24 THEN EXIT SUB 'rem bad date and time returned
TRY
'OPEN sFilename FOR INPUT ACCESS READ LOCK SHARED AS #FileNum 'See next line
OPEN sFilename FOR BINARY ACCESS WRITE AS #FileNum 'Need write access
hFile = FILEATTR(#FileNum, 2) 'This is the handle needed for GetFileTime/SetFileTime
'2 = The operating system file handle for the file
CATCH
EXIT SUB
FINALLY
'Use TYPE SET to copy back from a string
TYPE SET CreationTime = MID$(sfiletimeinfo, 1, 8)
TYPE SET LastAccessTime = MID$(sfiletimeinfo, 9, 8)
TYPE SET LastWriteTime = MID$(sfiletimeinfo, 17, 8)
SetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
CLOSE #FileNum
END TRY
END SUB
'0 = LastWriteTime (visible in dos)
'1 = LastAccessTime
'2 = CreationTime
Function SetFileDateTime( FileName As ASCIIZ, fSysTime As SYSTEMTIME, ByVal tMode As Long ) EXPORT As Long
Dim hFile As Long
Dim lpFileTime1 As FILETIME
Dim lpFileTime2 As FILETIME
If Clng( VarPtr( FileName ) ) = 0 Then Exit Function
ErrClear
hFile = GetAttr( FileName )
If ErrClear Then Exit Function
hFile = 0
hFile = CreateFile( FileName, _
%GENERIC_READ Or %GENERIC_WRITE _
, %FILE_SHARE_READ Or %FILE_SHARE_WRITE _
, ByVal 0& _
, %OPEN_EXISTING _
, %FILE_FLAG_BACKUP_SEMANTICS _
, 0 _
)
If hFile <> %INVALID_HANDLE_VALUE Then
Call SystemTimeToFileTime ( fSysTime, lpFileTime1 )
Call LocalFileTimeToFileTime( lpFileTime1, lpFileTime2 )
Select Case tMode
Case 0: FUNCTION = SetFileTime( hFile, ByVal 0&, ByVal 0&, lpFileTime2 )
Case 1: FUNCTION = SetFileTime( hFile, ByVal 0&, lpFileTime2, ByVal 0& )
Case 2: FUNCTION = SetFileTime( hFile, lpFileTime2, ByVal 0&, ByVal 0& )
End Select
Call CloseHandle( hFile )
End If
End Function
TS1 = GetFileTimeOfInterest (SourceFile) Copy SourceFile to Target file SetFileTime (of interest) of Target file = TS1
) still at the same Friday 13th - that the French file is older? Or is it the newer one? It is after all created later in the day ... UTF says otherwise: 15:00 in France is 14:00 UTF and 11:00 in New York is 17:00 UTF. If one says that the two files are transactions recorded for the same database? Should the US transactions get precedence? I don't think so. So, clearly, timezones are out of the equation. Now, should DST be brought into the equation? It can't. Same thing applies, but in a minor scale.
Leave a comment: