如何用VFP检查磁盘是否存在
发布时间：2010/8/23 10:31:32 来源：城市学习网 编辑：ziteng
*****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.
