如何检查磁盘是否存在

文章作者 100test 发表时间 2011:03:24 19:52:33
来源 100Test.Com百考试题网

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