МОЖЕТ АМЕРИКУ И НЕ ОТКРЫЛ НО ХОЧУ ПОДЕЛИТЬСЯ СКРИПТОМ pb 6.5 КОПИРОВАНИЕ ЛЮБЫХ ФАЙЛОВ

integer li_fhdl_in, li_fhdl_ot
integer li_byte
blob lb_buffer

li_fhdl_in = FileOpen ( <source file name>, StreamMode! )
li_fhdl_ot = FileOpen ( <target file name>, StreamMode!, Write!, LockReadWrite!, Replace! )

li_byte = FileRead ( li_fhdl_in, lb_buffer )
DO WHILE li_byte >= 0
FileWrite ( li_fhdl_ot, lb_buffer )
li_byte = FileRead ( li_fhdl_in, lb_buffer )
LOOP

FileClose ( li_fhdl_in )
FileClose ( li_fhdl_ot )