home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / FILEUTIL.IPS < prev    next >
Encoding:
Text File  |  1998-03-25  |  1.4 KB  |  49 lines
  1. VAR
  2.    s : longint;
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ConsoleClear; ConsoleShow;
  7.    IF FileCopy("FILEUTIL.IPS","XXX.XXX")
  8.       WRITELN("Kopie souboru v po°ßdku")
  9.    ELSE
  10.       WRITELN("Chyba vytvo°enφ kopie")
  11.    ENDIF
  12.    IF FileRename("XXX.XXX","YYY.YYY")
  13.       WRITELN("P°ejmenovßnφ souboru prob∞hlo v po°ßdku")
  14.    ELSE
  15.       WRITELN("Chyba p°ejmenovßnφ souboru")
  16.    ENDIF
  17.    IF FileExists("YYY.YYY")
  18.       WRITELN("Soubor YYY.YYY nalezen");
  19.       WRITELN('DΘlka souboru:',INTTOSTR(FileSize("YYY.YYY")), ' bajt∙');
  20.       IF FileDelete("YYY.YYY")
  21.          WRITELN("Soubor YYY.YYY byl zruÜen");
  22.       ENDIF
  23.    ELSE
  24.       WRITELN("Soubor YYY.YYY neexistuje");
  25.    ENDIF
  26.    WRITELN;
  27.    s := DiskSize(1);
  28.    IF s <> -1
  29.      WRITELN('Velikost disku A: ', INTTOSTR(s/1024), ' Kb');
  30.    ELSE
  31.       WRITELN('mechanika A: nenφ p°ipravena');
  32.    ENDIF
  33.    s := DiskSize(2);
  34.    IF s <> -1
  35.       WRITELN('Velikost disku B: ', INTTOSTR(s/1024), ' Kb');
  36.    ELSE
  37.       WRITELN('mechanika B: nenφ p°ipravena');
  38.    ENDIF
  39.    WRITELN('Velikost disku C: ',INTTOSTR(DiskSize(3)/1024/1024), ' Mb')
  40.    WRITELN('Volnß kapacita C: ',INTTOSTR(DiskFree(3)/1024/1024), ' Mb')
  41.    s := DiskSize(4);
  42.    IF s <> -1
  43.       WRITELN('Velikost disku D: ',INTTOSTR(s/1024/1024), ' Mb')
  44.    ENDIF
  45.    s := DiskSize(5);
  46.    IF s <> -1
  47.       WRITELN('Velikost disku E: ',INTTOSTR(s/1024/1024), ' Mb')
  48.    ENDIF
  49. ENDPROC