21 lines
497 B
Plaintext
21 lines
497 B
Plaintext
SUB truncateFile (file AS STRING, length AS LONG)
|
|
IF LEN(DIR$(file)) THEN
|
|
DIM f AS LONG, c AS STRING
|
|
f = FREEFILE
|
|
OPEN file FOR BINARY AS f
|
|
IF length > LOF(f) THEN
|
|
CLOSE f
|
|
ERROR 62 'Input past end of file
|
|
ELSE
|
|
c = SPACE$(length)
|
|
GET #f, 1, c
|
|
CLOSE f
|
|
OPEN file FOR OUTPUT AS f
|
|
PRINT #f, c;
|
|
CLOSE f
|
|
END IF
|
|
ELSE
|
|
ERROR 53
|
|
END IF
|
|
END SUB
|