>lexist_disk=.f.
>
> do while ! lexist_disk
> ln =DISKSPACE("A:")
> if ln > 0
> *--- Exist a disk in drive "A:"
>* wait window 'Any message of waiting..' nowait
> lexist_disk=.T.
> else
> *--- No disk in drive "A:"
> messagebox(PLEASE INSERT A DISK ...','System Message')
> endif
> enddo
Carlos,

Under WinNT/2K you may get an error message if from Windows, depending on the value returned by the SetErrorMode() API call. If possible, it's best to use the Windows Script Host's Scripting.FileSystemObject for this task.