Obtenir un nom de fichier unique

function GetUniqueFileName(const AFileName, AExt: string): string;
var iNum: integer;
sFileName: string;
begin
if FileExists(AFileName + AExt) then begin
iNum := 1;
sFileName := AFileName + '_' + inttostr(iNum);
while FileExists(AFileName + '_' + inttostr(iNum) + AExt) do
inc(iNum);

result := AFileName + '_' + inttostr(iNum) + AExt;
end //fileExists
else result := AFileName + AExt;
end;

//Exemple pour une image
//BMP.SaveToFile(GetUniqueFileName('c:\monimage', '.bmp'));
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour28/04/2009
VisualisationVu 1329 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
fobec fobec
connecté le 28/07/2016
41 ans - France Nord-Est
44 articles dans la section
Contacter l'auteur