home *** CD-ROM | disk | FTP | other *** search
/ CD Action 48 / cdactioncoverdisc482000.iso / Bonus / bon.exe / pascal / prog053.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-03-24  |  428 b   |  24 lines
  1. {program053 - Zmiana nazwy pliku}
  2.  
  3. program program053;
  4.  uses crt;
  5.   var sciezka:string; 
  6.       plik:text;
  7.       nazwa:string;
  8.  
  9. procedure zmiananazwypliku;
  10.  begin
  11.   sciezka:='c:\';
  12.   assign(plik,sciezka+'roboczy.txt');
  13.   reset(plik);
  14.   close(plik);
  15.   write('Podaj nowÑ nazw⌐ pliku (nazwa_pliku.XXX): ');
  16.   readln(nazwa);
  17.   rename(plik,sciezka+nazwa);
  18.  end;
  19.  
  20. begin
  21.  clrscr;
  22.  zmiananazwypliku;
  23.  readkey;
  24. end.