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

    Program CheckForHDExistence;
    Uses
      Dos;

    Function checkdsk(drive:Char):Boolean;
    begin
      checkdsk:=disksize(Byte(upcase(drive))-64)>0;
    end;

    begin
       { Doesn't work For Floppies unless a disk is present }
       if checkdsk('A') then Writeln('Valid! A')
       else Writeln('Not Valid A');
       if checkdsk('B') then Writeln('Valid! B')
       else Writeln('Not Valid B');
       if checkdsk('C') then Writeln('Valid! C')
       else Writeln('Not Valid C');
       if checkdsk('D') then Writeln('Valid! D')
       else Writeln('Not Valid D');
       if checkdsk('E') then Writeln('Valid! E')
       else Writeln('Not Valid E');
       if checkdsk('F') then Writeln('Valid! F')
       else Writeln('Not Valid F');
    end.

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