Doppelte Dateiendung entfernen

[gasty]

Hallo,
mein Problem ist folgendes:
Ich habe ein Converter-Programm, das für mich Clips (.mp4) in Musik Dateien umwandelt (.mp3).
Nur leider nimmt das Programm den ganzen Namen+Endung und setzt .mp3 dahinter. (Also "Dateiname.mp4.mp3)
Da mich das stört, würde ich gerne ein Programm schreiben, welches diese "doppelte Dateiendung" entfernt.
Bisher habe ich diese Funktion gefunden, die das ".mp4" aus dem Dateinamen löschen sollte, suche nun aber noch nach einer Methode, wie ich den Ordner "abscannen" kann um dann bei allen Dateien die Endung zu kürzen.

Delphi-Quellcode:

function RemoveInvalidCharsFromFileName(const sPFileName: String): String;
  var
    sFilePath, sFileName: String;
    i_lastBS, i : integer;
  begin
    i_lastBS := 0; //Variable initialisieren

    //Herausfinden welcher Teil des Strings Pfad und welcher Dateiname ist

    for i := 1 to length(sPFileName) do
      begin
        if sPFileName[i] = '\' then
          begin
            i_lastBS := i; //letztes Auftreten des Backslash merken

          end;
      end;

    //Pfad und Dateiname trennen

    sFileName := copy(sPFileName, i_lastBS+1, length(sPFileName)-i_lastBS+1);
    sFilePath := copy(sPFileName, 0, i_lastBS);

    //Den Dateinamen säubern

    sFileName := StringReplace(sFileName, '.mp4', '', [rfReplaceAll, rfIgnoreCase]);

    Result := sFilePath + sFileName;
  end;

Würde mich über Hilfe/Ansätze/etc. freuen.

Gruß,
gasty

[daywalker9]

Also Ordner durchsuchen kannst du mit FindFirst siehe Link FindFirst

[Wolfgang Mix]

Ich will dich ja nicht vom Programmieren abhalten,
aber das Problem löst der Total Commander von Ghisler
lässig nebenbei mit seinem Umbenenn-Tool hier

[DeddyH]

Ich finde die gepostete Methode Routine ja etwas umständlich, schließlich kriegt man das mit ExtractFilePath, ExtractFileName etc. einfacher hin. Und für das Suchen: FindAllFiles sollte da dienlich sein.

[gasty]

Oh danke für den Tip, das wusste ich noch nicht
Aber ich würde trotzdem gerne selbst was schreiben, für den Lerneffekt und das Erfolgserlebnis
Hm ok, werd es mal mit den beiden Befehlen versuchen.

[gasty]

Also mein Stand bis jetzt ist, ich habe eine Komponente gefunden, die das Suchen für mich übernimmt
Nur der RenameFile Befehl scheint nicht zu funktionieren, er löscht die Datei einfach nur
Mein Code sieht jetzt so aus:

Delphi-Quellcode:

DIFileFinder1.Next;
sFileName := DIFileFinder1.SimpleName;
sFileName := StringReplace(sFileName, '.mp4', '', [rfReplaceAll, rfIgnoreCase]);
RenameFile(difilefinder1.FullName, sFileName);

//Edit:
Omg ok vergesst es
Habe nen relativen Pfad bei dem Befehl genommen, jetz liegen alle Dateien im Projekt-Verzeichnis.
Aber ohne .mp4

Danke für die Hilfe hier !

Gruß,
gasty