>Hi All,
>
>how to determine if a (removable)drive is locked (read only)?
>
>TIA
>
>Agnes

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
endif

Might be.

or with WSH you might want to check first if drive is ready :

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