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.