Here's the function from our procedure library we use:

FUNCTION CheckDriveA
#define SEM_FAILCRITICALERRORS      0x0001
   
*-- SetErrorMode determines whether the system handles
*-- serious errors or whether the program handles them.
DECLARE INTEGER SetErrorMode in win32api INTEGER
*-- SetErrorMode returns what the flags were last set.
lnOldMode = SetErrorMode(SEM_FAILCRITICALERRORS)
*-- Test the FoxPro DISKSPACE() function.  If you get a -1, then
*-- there is no disk in the drive.\
lnReturnVal = .T.
IF DISKSPACE("a:") = -1
   lnReturnVal = .F.
ENDIF
*-- Restore system error handling settings.
= SetErrorMode(lnOldMode)
RETURN lnReturnVal

>How can I test if a floppy is inserted ?
>Thank you ?
>Alessio