Set File's Last-Written Date and Time
QuickBasic
' DOS 2+ - SET FILE'S LAST-WRITTEN DATE AND TIME
'$INCLUDE: 'qb.bi'
DIM file AS STRING
DIM inregs AS RegTypeX
DIM outregs AS RegTypeX
file = "C:\INT\124.txt" + CHR$(0)
inregs.CX = 32
inregs.DS = VARSEG(file)
inregs.DX = SADD(file)
inregs.AX = &H3C00
CALL InterruptX(&H21, inregs, outregs)
IF outregs.FLAGS AND 1 THEN
PRINT "Error creating >> " + file$
BEEP: END
END IF
DIM FileHandle AS INTEGER
FileHandle = outregs.AX
inregs.AX = &H5701
inregs.BX = FileHandle
'does not work in DOSBox
inregs.CX = 100 ' new time
' Bits
' 15-11 hours (0-23)
' 10-5 minutes
' 4-0 seconds/2
inregs.DX = 100 ' new date
' Bits
' 15-9 year - 1980
' 8-5 month
' 4-0 day
' DOS interrupt with sub-function &H5701
CALL InterruptX(&H21, inregs, outregs)
IF outregs.FLAGS AND 1 THEN
PRINT "Error setting date and time >> " + file
BEEP: END
END IF