I USE THIS CODE TO MAKE A DUPLICATE FILE FOR BACKUP PURPOSES.
THIS WORKS WELL ON THE HARDDRIVE FOR BACK UP.
WHEN I TRY TO REVERSE THE FILENAMES TO MAKE OUTPUTFILE CONTENTS INPUTFILE
CONTENTS FROM THE A DRIVE IT DOESN'T WORK. WHAT'S WRONG.
'BACKING UP THE FILE
INPUTFILE$ = "SCORES.DAT" ' THE MAIN FILE NAME
OUTPUTFILE$ ="A:SCORES.BAK" 'THE BACK UP FILE NAME
FILE1% =FREEFILE
OPEN INPUTFILE$ FOR BINARY AS #FILE1%
FILE2% = FREEFILE
OPEN OUTPUTFILE$ FOR BINARY AS #FILE2%
BYTE$ = LOF(FILE1%)
DO
IF BYTE% > 245 THEN
TPASS = BYTE&
END IF
BUFFER$ = SPACE$(TPASS)
GET #FILE1%, ,BUFFER$
PUT #FILE2%, ,BUFFER$
BYTE& = BYTE& - TPASS
LOOP WHILE BYTE&
CLOSE FILE1%
CLOSE FILE2%
END
'RESTORING UP THE FILE
INPUTFILE$ = "A:SCORES.BAK" 'THE BACKUP FILE NAME
OUTPUTFILE$ ="A:SCORES.DAT" ' THE DATA FILE NAME
FILE1% =FREEFILE
OPEN INPUTFILE$ FOR BINARY AS #FILE1%
FILE2% = FREEFILE
OPEN OUTPUTFILE$ FOR BINARY AS #FILE2%
BYTE$ = LOF(FILE1%)
DO
IF BYTE% > 245 THEN '245 IS LENGTH OF FILE
TPASS = BYTE&
END IF
BUFFER$ = SPACE$(TPASS)
GET #FILE1%, ,BUFFER$
PUT #FILE2%, ,BUFFER$
BYTE& = BYTE& - TPASS
LOOP WHILE BYTE&
CLOSE FILE1%
CLOSE FILE2%
END
THIS WORKS WELL ON THE HARDDRIVE FOR BACK UP.
WHEN I TRY TO REVERSE THE FILENAMES TO MAKE OUTPUTFILE CONTENTS INPUTFILE
CONTENTS FROM THE A DRIVE IT DOESN'T WORK. WHAT'S WRONG.
'BACKING UP THE FILE
INPUTFILE$ = "SCORES.DAT" ' THE MAIN FILE NAME
OUTPUTFILE$ ="A:SCORES.BAK" 'THE BACK UP FILE NAME
FILE1% =FREEFILE
OPEN INPUTFILE$ FOR BINARY AS #FILE1%
FILE2% = FREEFILE
OPEN OUTPUTFILE$ FOR BINARY AS #FILE2%
BYTE$ = LOF(FILE1%)
DO
IF BYTE% > 245 THEN
TPASS = BYTE&
END IF
BUFFER$ = SPACE$(TPASS)
GET #FILE1%, ,BUFFER$
PUT #FILE2%, ,BUFFER$
BYTE& = BYTE& - TPASS
LOOP WHILE BYTE&
CLOSE FILE1%
CLOSE FILE2%
END
'RESTORING UP THE FILE
INPUTFILE$ = "A:SCORES.BAK" 'THE BACKUP FILE NAME
OUTPUTFILE$ ="A:SCORES.DAT" ' THE DATA FILE NAME
FILE1% =FREEFILE
OPEN INPUTFILE$ FOR BINARY AS #FILE1%
FILE2% = FREEFILE
OPEN OUTPUTFILE$ FOR BINARY AS #FILE2%
BYTE$ = LOF(FILE1%)
DO
IF BYTE% > 245 THEN '245 IS LENGTH OF FILE
TPASS = BYTE&
END IF
BUFFER$ = SPACE$(TPASS)
GET #FILE1%, ,BUFFER$
PUT #FILE2%, ,BUFFER$
BYTE& = BYTE& - TPASS
LOOP WHILE BYTE&
CLOSE FILE1%
CLOSE FILE2%
END
Comment