🚀 go-pugleaf

Sabrena Alvin wrote:
> 
> Simon Carter wrote:
> >
> > You could try using DiskFree function if the drive is not ready it will
> > return -1
> >
> > Simon Carter
> >
> > Thomas W. Olson <tolson@advancegroup.com> wrote in article
> > <01bbe537$bb381f40$330808ce@tolson.ppp>...
> > > I have been to about a half dozen sites for programmer's and they all
> > have
> > > these offers to make money, but nobody seems to know anything about
> > > programming.
> > >
> > > I am trying to handle the EInOutError exception.  The scenario is this:
> > > When the user sets the Drive control to drive A and there is no disk in
> > the
> > > drive, the EInOutError exception gets raised.  I want the user to be able
> > > to press a Retry button on a message box and have the drive retried.  So
> > > far I have not been able to do this.
> > >
> > > PLEASE HELP
> > >
> > >                                               Sincerely,
> > >
> > >                                               Just Learning
> > >
> > >try using the SELECTDIRECTORY  in the following procedure:
> 
> var
>   dir: string;
>   l: longint;
> begin
>   dir := 'A:\';
>   try
>     SelectDirectory(Dir, [], l)
>   except
>     messagedlg( 'Drive not ready.', mtError, [mbRetry, mbAbort], 0 );
>   end;\
Sorry, use directoyrexist instead:

var
  dir: string;
begin
  dir := 'A:\';
    if not Directoryexists(Dir) then
    messagedlg( 'Drive not ready.', mtError, [mbRetry, mbAbort], 0 );

end;

Don't forget to add unit "FileCtrl" to your uses statement.