Windows Scripting Host (WSH)


oFSO = CREATEOBJECT("Scripting.FileSystemObject")
oDrv = oFSO.GetDrive("A:")
? oDrv.IsReady

* You can also check if drive exists
? oFSO.DriveExists("A:")


--------------------------------------------------------------------------------

Windows API (based on mskb #Q191501)


#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.
IF DISKSPACE("a:",1) = -1
MESSAGEBOX("No disk present.", 0)
ENDIF
*-- Restore system error handling settings.
= SetErrorMode(lnOldMode)