[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]

    {³o³  How do I detect active drives in Pascal?  My Program would ³oº
    ³o³  crash if you Typed in a non-existent drive as either       ³oº
    ³o³  source or destination.                                     ³oº
    }
    Uses Dos;
    Var sr : SearchRec;
    begin
      findfirst('k:\*.*',AnyFile,sr);
      if Doserror=0
      then Writeln('It is there all right!')
      else Writeln('Sorry, could not find it.');
    end.

[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]