Tutorial : Mengetahui Ukuran Drive

Script LAnguage : PAscal

uses crt, Dos;

var drive : integer;

begin

clrscr;

writeln('Pilih Drive yang akan dilihat kapasitasnya');

writeln('0 ==> Default');

writeln('1 ==> Drive A');

writeln('2 ==> Drive B');

writeln('3 ==> Drive C');

writeln('4 ==> Drive D');

write('Pilihan : ');

readln(drive);

writeln('Keterangan Drive');

writeln('----------------');

write('Kapasitas drive : ');

Writeln(DiskSize(drive) div 1024, ' Kbytes');

write('Kapasitas kosong : ');

Writeln(DiskFree(drive) div 1024, ' Kbytes free ');

readln;

end.