>Nadya,
>This is my ready checking routine if would help :
>
>

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
>

Thanks, that's much better.