poljzujtesj na zdorovje provereno na 100%.perepisyvayet lyubye faily lyubyh razmerov
-----------------------------------------------------------------------------------------

blob ls_buffer
string ls_to,is_pdf_file
integer li_ToFile,li_FromFile, loops
long ll_flen,i
blob b



ls_to ="c:\to_file.pdf" //path+name of destination file

ls_from="c:\from_file.pdf" //path+name of source file

if fileexists(ls_from) then

// Set a wait cursor
SetPointer(HourGlass!)

// open the destination file
li_ToFile = FileOpen ( ls_to, StreamMode!, Write!, LockReadWrite!, Replace! )

// Get the file length, and open the source file
ll_flen = FileLength(ls_from)
li_FromFile = FileOpen(ls_from,StreamMode!, Read!, LockRead!)

// Determine how many times to call FileRead
IF ll_flen > 32765 THEN
IF Mod(ll_flen, 32765) = 0 THEN
loops = ll_flen/32765
ELSE
loops = (ll_flen/32765) + 1
END IF
ELSE
loops = 1
END IF

// Read the file and write new copy of the file
FOR i = 1 to loops
FileRead(li_FromFile, b) //read from source file into buffer
FileWrite(li_ToFile, b) //write from buffer to destinanation file
NEXT
// FileClose returns 1 if it succeeds and -1 if an error occurs. If file# is NULL, FileClose returns NULL.
FileClose(li_FromFile)
FileClose(li_ToFile)

setnull(b) //clear buffer
SetPointer(Arrow!) //back to previous pointer
end if