Základy práce se soubory
Přejmenování souboru
 Tisk

Přejmenování souboru


Pro přejmenování souboru se používají tyto standardní procedury a funkce:


assign, renamefile/rename


Následující příklad ukazuje přejmenování souboru na disketě.


program prejmen;


{$APPTYPE CONSOLE}

// Projekt: PP01 Autor:Kopeček Datum: 13.4.2005

// Funkce: Přejmenuje soubor

uses

SysUtils;


const

    JMENO_SOUB = 'a:vytvor.txt'; // původní soubor na disketě

    NOVY_SOUB = 'a:novy.txt';   // nový soubor na disketě

var

    f:text;     // deklarace textového souboru

    c:char;


begin

    assign(f,JMENO_SOUB);     // přiřazení jména souboru a souboru na disku

{$I-}                         // vypnutí standardního ošetření chyb

    reset(f);                 // pokus o otevřeni

    if ioresult = 0 then begin // soubor existuje

        writeln('soubor existuje / chcete ho přejmenovat? (A/N)');

        readln(c);

        if (c <> 'a') and (c<>'A') // zachovat jméno souboru

           then halt;         // okamžité ukončení programu

    end else begin

         writeln('soubor ',JMENO_SOUB,' neexistuje / nelze přejmenovat');

         readln;

         halt;

    end;

    close(f);

    if ioresult <> 0 then begin // nepravděpodobná chyba

       writeln('chyba pri zavirani souboru');

       readln;

       halt;                  // okamžité ukončení programu

    end;

    renamefile(JMENO_SOUB,NOVY_SOUB); // přejmenování souboru

                                      // v Turbo Pascalu jen rename

    if ioresult <> 0 then begin

       writeln('chyba pri prejmenovani souboru ',JMENO_SOUB);

       readln;

       halt;                  // okamžité ukončení programu

    end else

       writeln('soubor ', JMENO_SOUB,' prejmenovan na ',NOVY_SOUB);

    writeln('Konec programu');

    readln;

{$I+}                         // zapnutí standardního ošetření chyb

end.