local llRW, lnHandle, lcFile lcFile = sys(2015)+'.tmp' lnHandle=fcreate(lcFile) if lnHandle > 0 fclose(lnHandle) erase (lcFile) llRW = .t. else if ferror() = 29 && Disk full endif endifMight be.
Lparameters tcDriveName oFS = CREATEOBJECT('Scripting.FileSystemObject') For each oDrv in oFS.Drives If oDrv.DriveLetter = upper(tcDriveName) Return oDrv.IsReady Endif Endfor Return .F.Cetin