Open and save binary files????

[Jhd.Honza]

Hi! I have code like this:

OPEN "image.ico" FOR BINARY AS #1
OPEN "temp.ico" FOR BINARY AS #2
temp = GET(#1,LOF(1))
PUT #2,temp
CLOSE

but this adds some characters to temp.ico before the beginning of image.ico. It cannot be resolved by RIGHT or such statements. What shoud I do?




------------------
Thanks,
John, 14 years old

[Bart]

Try this:
dim temp as string
Open "image.ico" for binary as #1
Open "temp.ico" for binary as #1
temp = string(lof(1),chr(0))
get #1,,temp
put #2,,temp
close #1
close #2