Ændre filtyper

lav en FindFirst .. FindNext . FindClose Loop, og for hver fil du finder laver du en renamefile
Jens B

Nu ved jeg ikke hviket OS du bruger, men i fil-typer kan du opsætte det sådan at efternavne er vist i mapperne i win... og så er det bare at slette .TXT og skrive .RTF, ellers kan det gøres via MS-Dospromt:
winmenu --> Kør! --> cmd.exe --> kommando: "ren minfil.txt minfil.rtf"

By the way, du kan også bare åbne dine filer i fx notepad / wordpad og gemme dem som rtf filer:

Gem som --> minfil.rtf (filtype = tekst/rtf)

borrisholt - kan du ikke lige give et eksempel?
nemo2000 - eftersom jeg stiller det i Delphi-kategorien bruger jeg jo nok Windows, tror du ikke? Og derfor søger jeg også et PROGRAMMERINGS-eksempel på at løse problemet, ellers ville jeg nok ikke stille det i Delphi-kategorien, som ligger under Programmering.

Det må I sku undskylde....

unit Unit1;

interface

uses
  SysUtils, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} // Include form definitions

procedure TForm1.FormCreate(Sender: TObject);
var
  searchResult : TSearchRec;

begin
  // Try to find regular files matching *.txt in the current dir
  if FindFirst('*.txt', faAnyFile, searchResult) = 0 then begin
    repeat
      //ShowMessage('File name = '+searchResult.Name);
      RenameFile(searchResult.Name,Copy(searchResult.Name,1,Length(searchResult.Name)-3)+'rtf');
    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
    FindClose(searchResult);
  end;
end;

end.