Cambiar la extensión a un fichero

5044 vistas

Puede ser interesante cambiar la extensión de un fichero en un momento dado para, por ejemplo, poderlo enviar por correo y que no nos lo bloquee el antivirus

Para ello vamos a usar la función ChangeFileExt definida en la unit SysUtils



delphi
  1. var
  2.   Fichero: string;
  3. begin
  4.   Fichero := ChangeFileExt('archivo.txt', '.htm')
  5. end;