Rename

prøv med:

var
  sr: TSearchRec;
  navn: string;
begin
if FindFirst('e:\testmappe\*.*', 0, sr) = 0 then
  begin
    repeat
      begin
        navn := changefileext(sr.Name, '');
        RenameFile('e:\testmappe\'+sr.Name, 'e:\testmappe\'+navn+' - en fil.mp3');
      end;
    until FindNext(sr) <> 0;
  FindClose(sr);
  end;
end;

prøv med

if FindFirst('e:\testmappe\*.*', faAnyFile, sr) = 0 then

Her: (retter alle filer med .mp3 til .mp4)

procedure TForm1.Button1Click(Sender: TObject);
var
  s : TSearchRec;
  path,ext,z:string;

begin
  path := 'e:\testmappe\';
  ext := '.mp3';
  if FindFirst(path+'*'+ext, faAnyFile, s) = 0 then
  repeat
    z := copy(s.Name,1,length(s.Name)-length(ext));  {fjerner extension}
    RenameFile(path+s.Name, path+z+'.mp4');
  until FindNext(s) <> 0;
end;

jeg har prøvet jeres koder, de gør det samme som min. Nogen af filerne omdøber den flere gange sådan at hvis der er en fil der hedder "hej" så bliver den omdøbt til "hej - en fil - en fil.mp3" noget i den stil :)

okay dette kode er testet og virker:

var
  sr: TSearchRec;
  navn: string;
  I: Integer;
begin
  I := FindFirst('e:\testmappe\*.*', faAnyFile, sr);

  while I = 0 do
  begin
    navn := changefileext(sr.Name, '');
    RenameFile('e:\testmappe\'+sr.Name, 'e:\testmappe\'+navn+' - en fil.mp3');
    I := FindNext(sr);
  end;
  FindClose(sr);
end;

når jeg tester den med en mappe med 4 filer i så er der samme problem som før

Det at den bliver ændret flere gange må skyldes at den bliver lagt bagerst i listen når den bliver rettet, og da den stadig hedder *.mp3 bliver navnet åbenbart ændret en gang til

Eller også hed filen allerede noget med ' - en fil'
Så må du sætte en ekstra kontrol ind:

If pos(' - en fil',s.Name) = 0 then
  RenameFile(path+s.Name, path+z+'- en fil.mp4');

så bliver filnavne der allerede indeholder ' - en fil' ikke ændret en gang til.

Dvs.:

procedure TForm1.Button1Click(Sender: TObject);
var
  s : TSearchRec;
  path,ext,z:string;

begin
  path := 'e:\testmappe\';
  ext := '.mp3';
  if FindFirst(path+'*'+ext, faAnyFile, s) = 0 then
  repeat
    z := copy(s.Name,1,length(s.Name)-length(ext));  {fjerner extension}
    If pos(' - en fil',s.Name) = 0 then
      RenameFile(path+s.Name, path+z+'- en fil.mp3');
  until FindNext(s) <> 0;
end;