07-26-2005, 11:27 PM
Quote:EnjoyCode:open file1$ for binary as #1
ll = lof(1)
redim fbuff(ll-1) as ubyte
get #1, 1, fbuff()
close #1
kill file2$
open file2$ for binary as #1
put #1, 1, fbuff()
close #1
redim fbuff(0) as ubyte
Z!re,
Your routine is amazing when compiled and run with Freebasic!
Old problems in QB are handled correctly and just go away, like:
- When input file does not exist.
- When input file is a zero-length-file.
- Doing a KILL to a non-existent file.
- other subtleties.
Nice work!
*****