[futurebasic] Re: [FB] FLUSHVOLUME

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : February 2000 : Group Archive : Group : All Groups

From: George Beckman <gbeckman@...>
Date: Sun, 27 Feb 2000 20:05:49 -0800
What if you did this?:

> LOCAL FN LOCKSYSTEM(MYFILE,NEXTFILE)
> errorCondition%=0
> ON ERROR GOSUB 65535
> WHILE errorCondition%=0
>  OPEN "R",#MYFILE,"TRAP",2,MYFOLDER%
   LONG if ERROR
    errorCondition%=1
    ERROR=0
   end if
>  LONG IF errorCondition%=0
>   OPEN "R",#NEXTFILE,"TRAP1",2,MYFOLDER%
    long if ERROR
     CLOSE #MYFILE
     errorCondition%=1
     ERROR=0 
    end if
>  END IF
> DEC(errorCondition%)
> WEND
> ON ERROR RETURN
> END FN

Just thinking...

GB

> From: futurebasic-return-16806-GBeckman=pggp.com@...  Sun Feb 27
> 14:28:28 2000
> Reply-To: futurebasic@...
> Date: Sun, 27 Feb 2000 13:28:14 -0600
> To: <futurebasic@...>
> Subject: Re: [FB] FLUSHVOLUME
> 
> However, with this it is not the
> 3rd+ computer that will get the error I am having with the variables, it is
> any computer that gets the  FN ERRORTRAP.
> 
> LOCAL FN ERRORTRAP
> errorCondition%=1:ERROR=0
> END FN
> 
> 
> LOCAL FN LOCKSYSTEM(MYFILE,NEXTFILE)
> errorCondition%=0
> ON ERROR GOSUB 65535
> ON ERROR FN ERRORTRAP
> WHILE errorCondition%=0
> OPEN "R",#MYFILE,"TRAP",2,MYFOLDER%
> LONG IF errorCondition%=0
> OPEN "R",#NEXTFILE,"TRAP1",2,MYFOLDER%
> IF errorCondition%>0 THEN CLOSE#MYFILE
> END IF
> DEC(errorCondition%)
> WEND
> ON ERROR RETURN
> END FN