Ce que sous-entend Martial, c'est que tu devrais spécifier en quel langage. Vu ton historique, je suppose que c'est du VB.

If LCase(Right(fname, 4)) = ".txt" Then
  Name fname As Left(fname, Len(fname) - 3) & "dba"
EndIf

(Name ... As ... renomme un fichier. Heureusement pour toi que j'ai d'antiques sources VB à déterrer, parce que j'avais oublié cette commande depuis longtemps. )