http://www.profox.ro/Articole/ObiectulFileSystem/tabid/148/Default.aspx - folosind obiectul filesystem (e un link de download la sfarsit)

In esenta, e vorba despre asta:

oFSO = CREATEOBJECT("Scripting.FileSystemObject")
? oFSO.FolderExists("A:\")

Am gasit pe net urmatorul cod:

#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)