*****chckdisk.prg 文件
parameters tcDrive
local lcDrive, lnWinErrMode, llCanRead
declare integer SetErrorMode in Win32API integer nErrorMode
lcDrive = iif(substr(tcDrive, 2, 1) = ':', left(tcDrive, 2), tcDrive)
lnWinErrMode = SetErrorMode(1)
llCanRead = diskspace(lcDrive) <> -1
SetErrorMode(lnWinErrMode)
return llCanRead
************
*你将上面的代码存放在CHCKDISK文件中，然后在命令窗口中输入?chckdisk("a:")
如果有软盘就返回.T.,否则就返回.F.
责任编辑：小草
