Lesson Ii (Size/Time/Dat

 BBS: Inland Empire Archive
Date: 05-13-92 (16:23)             Number: 99
From: JEAN CREPEAU                 Refer#: NONE
  To: K.L. LEE                      Recvd: NO  
Subj: Lesson Ii  (Size/Time/Dat      Conf: (2) Quik_Bas

In a message to ALL, K.L. LEE wrote:
KL=>    How to write a program which can -

KL=>  * change the file TIME & DATE?  * read the Size/Time/Date of File?

KL=>  Thanks for help me again...

KL=> Best regards, K.L. Lee

' $INCLUDE: 'QB.BI'

Dim Regs as RegType

Open file$ for Binary as #x     ' x is any file number

Regs.AX=&h5700                  ' Get Date and Time
Regs.BX=FileAttr(x,2)
Call Interrupt(&h21,Regs,Regs)
        Year=Regs.DX\512+1980
        Month=Regs.DX\32 and 15
        Day=Regs.DX and 31
        Hour=Regs.CX\2048
        Mins=Regs.CX\32 and 63
        Secs=(Regs.CX and 31)*2

Regs.AX=&h5701                  ' Set Date and Time
Regs.BX=FileAttr(x,2)
Regs.CX=(Hour and 15)*2048+(Mins and 63)*32+(Secs\2 and 31)
Regs.DX=(Year-1980 and 127)*512+(Month and 15)*32+(Day and 31)
Call Interrupt(&h21,Regs,Regs)

                Jean
---
 * Origin: INTERACESS Montreal (QC) Canada (514) 528-1415 (1:167/280)