Hi Ken Uzzell, hope you are having a nice day
Tuesday, 10 September 1996 16:05:32, Marcel Veldhuizen wrote to Ken
Uzzell Subject: File Copy
 Here are a few minor addiotions and changes to my copying-routine:
 MV> $IF %Dialog $LINK "D:\PB32\UNIT\SCRNUNIT.PBU" $ENDIF
 Compile the SCRNUNIT.BAS in the examples dir and change this dir to the
 one SCRNUNIT.PBU is in...
 MV> 'Install LOCAL error-handler
 MV> ON LOCAL ERROR GOTO ErrorInCopy
 After these lines, you could add:
 IF INSTR(Source, ANY "?*") THEN CopyFile = 64: EXIT FUNCTION
 IF DIR$(Source) = "" THEN CopyFile = 64: EXIT FUNCTION
 This checks to see if the file exists, if not, it will exit with ERROR 64,
 Bad File Name
 MV>  ' Start copying
 BEFORE this line, add:
 ' Init file
 PUT$ Fhandle(2), ""
 This would probably seem a little weird, but since this routine allows
 copying of EMPTY files (such as DISK1.ID, etc, they are sometimes empty),
 unlike Lawrences, which will DELETE any empty file when trying to be
 copied.. The problem is, when a empty file is copied to an existing file,
 which is NOT empty, the result would be the old file remaining like it was.
 This resolves this problem by sending a empty string to the file..
 MV> It hasn't gone through a lot of testing, I just created it..
 It should work 100% now (in PB 3.2 of course)
 MV> If you have further questions, feel free to ask..
 Offer still open:)
 >>> Marcel Veldhuizen <<<<<<<< * Origin: United Bbs Systems Europe MailGate to -> Fido USA (2:2802/337.0)