如何检查磁盘是否存在计算机等级考试

文章作者 100test 发表时间 2010:01:02 15:15:40
来源 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)