kia1349
دوشنبه 21 اردیبهشت 1383, 08:13 صبح
#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.
lnSpace = DISKSPACE("a:",1)
IF lnSpace = -1
MESSAGEBOX("No disk present.", 0)
ELSE
* Get Free Space
lnFreeSpace = DISKSPACE("a:", 2)
lcTempName = "A:\" + SYS(2015) + ".tmp"
IF lnFreeSpace > 0
* Try to create a file
lnFH = FCREATE(lcTempName)
IF lnFH < 0
MESSAGEBOX("The disk is write-protected.", 0)
ELSE
= FCLOSE(lnFH)
ERASE (lcTempName)
ENDIF
ENDIF
ENDIF
*-- Restore system error handling settings.
= SetErrorMode(lnOldMode)
*-- 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.
lnSpace = DISKSPACE("a:",1)
IF lnSpace = -1
MESSAGEBOX("No disk present.", 0)
ELSE
* Get Free Space
lnFreeSpace = DISKSPACE("a:", 2)
lcTempName = "A:\" + SYS(2015) + ".tmp"
IF lnFreeSpace > 0
* Try to create a file
lnFH = FCREATE(lcTempName)
IF lnFH < 0
MESSAGEBOX("The disk is write-protected.", 0)
ELSE
= FCLOSE(lnFH)
ERASE (lcTempName)
ENDIF
ENDIF
ENDIF
*-- Restore system error handling settings.
= SetErrorMode(lnOldMode)