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

>Based on this message, I've created this program:
>

lparameter tcDrive
>if vartype(m.tcDrive)<>'C' or empty(m.tcDrive)
>   tcDrive = "A:"
>else
>   tcDrive = left(m.tcDrive,2)
>endif
>
>LOCAL oFSO, oDrive
>oFSO = CREATEOBJECT('Scripting.FileSystemObject')
>oDrive = oFSO.GetDrive(m.tcDrive)
>return oDrive.IsReady

>
>And then I tested it for each possible letter. On the letter n: it gaves me Ole Error 0x800a0044: Unknown COM status code.
>
>
>>>Hi everyone,
>>>
>>>I've just thought about something and made a quick test. Usually we have this kind of code:
>>>

if not directory(m.lcDir)
>>>   md (m.lcDir)
>>>endif

>>>
>>>I decided to test it on "a" drive without disk inserted. To my surprise and relief, directory() function works fine.
>>
>>Under Win2K it triggers a system message box with "Cancel", "Try Again" and "Continue" buttons.
>>
>>However, md command gave an error "File Access is denied". So, what do you think, what kind of code would be more correct? (Besides trapping for error, of course).
>>>
>>
>>
>>See Message #320074.