Pfadinhalte eine Ebene aufwärts kopieren

[Delphi.Narium]

ungefähr sowas?

Delphi-Quellcode:

sAlt      := 'c:\temp\alt\irgendeine.mp3';
sWegdamit := '\alt\';
sNeu      := AnsiReplaceText(sAlt,sWegDamit,'\');
if not SysUtils.RenameFile(sAlt,sNeu) then ShowMessage(Format('Fehler beim Umbenennen: %s',[sAlt,sNeu]));

In kurz (ohne Fehlerbehandlung ...):
SysUtils.RenameFile(sDateiname,AnsiReplaceText(sDateiname,'\alt\','\'));