Drive A

[aliane]

Please.
One can tell me how I can test the existence of drive A
thanks

 

[Mike Gagnon]

You could use this:

Local lnReturn
lnReturn = DRIVETYPE("a:")
IF lnReturn = 2
  messagebox("There is an 'A' drive")
ELSE
  messagebox("There is NO 'A' drive")
ENDIF

 

[aliane]

Thanks for reponse
but I want to know if the floppy is in the drive A: and it's good to use it.
Merci

 

[Mike Gagnon]

Ok that is a different question. Try this:

ON ERROR do nodisk
COPY FILE c:\Testdisk.txt to a:\testdisk.txt

FUNCTION nodisk
messagebox("There is no disk in the 'a' drive"+chr(13)+;
"Or it it write protected&quot
ENDFUNC

 

[danceman]

try the diskspace command. If the disk is not in the drive it returns -1, otherwise it returns the free space on disk. No need to build a seperate error routine, just check the return value. Attitude is Everything

 

[aliane]

Thanks