TID: Mystic BBS 1.12 A48
MSGID: 1:19/37 16876f73
REPLY: 1:229/426 FD835021
TZUTC: -0500
Thanks Nick. I actually wrote this program, almost exactly as you did.
Yours is a little more complex, but i wrote a copy file program.

I needed something to install (copy) a lib I am writing for my BBS programs
for shared code.


Thanks!



On 03 Sep 2022, Nick Andre said the following...
 
 NA> On 02 Sep 22  21:22:49, Chad Adams said the following to All:
 NA> 
 NA> CA> Does anyone know a function that will allow you to copy one file to an
 NA> CA> location?
 NA> CA> 
 NA> CA> CopyFile(File, File2);
 NA> 
 NA> procedure SAFECOPY (fromFile, toFile : string);
 NA>   type bufferType = array [1..64] of char;
 NA>   type bufferTypePtr = ^bufferType;  { Use the heap }
 NA>   var bufferPtr : bufferTypePtr;     { for the buffer }
 NA>       f1, f2 : file;
 NA>       bufferSize, readCount, writeCount : word;
 NA>       fmSave : byte;              { To store the filemode }
 NA>   begin
 NA>     bufferSize := SizeOf(bufferType);
 NA>     New (bufferPtr);              { Create the buffer, on the heap }
 NA>     fmSave := FileMode;           { Store the filemode }
 NA>     FileMode := 0;                { To read also read-only files }
 NA>     Assign (f1, fromFile);
 NA>     {$I-} Reset (f1, 1);          { Note the record size 1, important! }
 NA>     if IOResult <> 0 then exit;   { Does the file exist? }
 NA>     Assign (f2, toFile);
 NA>     {$I-} Rewrite (f2, 1);        { Open the target }
 NA>     if IOResult <> 0 then exit;
 NA>     repeat                        { Do the copying }
 NA>       BlockRead (f1, bufferPtr^, bufferSize, readCount);
 NA>       {$I-} BlockWrite (f2, bufferPtr^, readCount, writeCount);      
 NA>       if IOResult <> 0 then begin close (f1); exit; end;
 NA>     until (readCount = 0) or (writeCount <> readCount);
 NA>     close (f1); close (f2);
 NA>     FileMode := fmSave;           { Restore the original filemode }
 NA>     Dispose (bufferPtr);          { Release the buffer from the heap }
 NA>   end;  (* safecopy *)
 NA> 
 NA> Nick
 NA> 
 NA> --- Renegade vY2Ka2
 NA>  * Origin: Joey, do you like movies about gladiators? (1:229/426)

--Nugax
The ByteXchange BBS
TBX Software

--- Mystic BBS v1.12 A48 2022/07/15 (Linux/64)
 * Origin: The ByteXchange BBS | bbs.thebytexchange.com (1:19/37)
SEEN-BY: 1/19 123 15/0 16/0 19/37 90/1 106/201 114/709 120/340 123/130
SEEN-BY: 123/131 129/305 331 153/7715 203/0 218/700 221/0 227/114
SEEN-BY: 229/111 112 113 206 275 317 400 424 426 428 470 550 616 664
SEEN-BY: 229/700 240/5832 266/512 282/1038 292/854 317/3 320/119 219
SEEN-BY: 320/319 322/0 757 326/101 342/200 396/45 460/58 633/280 712/848
PATH: 19/37 320/219 229/426