BBC BASIC for Windows - Disc drive check

BBC BASIC for Windows

Programming

BBC BASIC language (Moderator: admin)

Disc drive check

« Previous Topic | Next Topic »

Pages: 1

Author

Topic: Disc drive check (Read 675 times)

sveinioslo
Developer

member is offline

Posts: 64

Re: Disc drive check
« Reply #3 on: Mar 18^th, 2015, 12:16pm »

Maybe this proc does the trick ?

Svein

Code:

 
      DEF PROCdeletefile(file$)
      ON ERROR LOCAL : ENDPROC
      OSCLI "DEL "+file$
      ENDPROC

Logged

rtr2
Guest

Re: Disc drive check
« Reply #4 on: Mar 18^th, 2015, 1:03pm »

on Mar 18^th, 2015, 12:16pm, sveinioslo wrote:

Maybe this proc does the trick ?

Or, more straightforwardly (and no need for a PROC):

Code:

      SYS "DeleteFile", file$

But I already suggested that to the OP, and he said he tried it, so probably the error message he is referring to is a popup window like the one you get with a missing floppy.

Richard.

« Last Edit: Mar 18^th, 2015, 1:04pm by rtr2 »

Logged

sveinioslo
Developer

member is offline

Posts: 64

Re: Disc drive check
« Reply #5 on: Mar 18^th, 2015, 9:55pm »

I was hoping that the "No disc is in drive" error was trappable.
Can't test it at my current location.

Svein

Logged

TheFamousCash
New Member

member is offline

Posts: 16

Re: Disc drive check
« Reply #6 on: Mar 19^th, 2015, 12:21pm »

Many thanks for assistance. I have found solution. Cycling through to discover which LT$ is actual disc drive using below PROC and checking to see if file$ present. If CDFLAG%=1 then simple OSCLI "DEL """+file$+"""" completes.

DEFPROCCHECKDISK(LT$)
ON ERROR LOCAL:ENDPROC
OSCLI "CD """+LT$+""""
LOCAL dir%, sh%, res%
DIM dir% LOCAL 317
SYS "FindFirstFile", "*", dir% TO sh%
IFsh%<>-1P%=OPENUPfile$:IFP>0CDFLAG=1:CLOSE#P%
ENDPROC

Logged

Pages: 1


« Previous Topic \| Next Topic »