NE PAS ÉCRASER UN FICHIER EXISTANT - RENOMMER LE FICHIER CRÉÉ EN AJOUTANT UN NUM
Joleroy
Messages postés
106
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
24 octobre 2005
-
8 juil. 2004 à 20:45
Joleroy Messages postés 106 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 24 octobre 2005 - 9 juil. 2004 à 13:34
Joleroy Messages postés 106 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 24 octobre 2005 - 9 juil. 2004 à 13:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24396-ne-pas-ecraser-un-fichier-existant-renommer-le-fichier-cree-en-ajoutant-un-numero-d-ordre
https://codes-sources.commentcamarche.net/source/24396-ne-pas-ecraser-un-fichier-existant-renommer-le-fichier-cree-en-ajoutant-un-numero-d-ordre
9 juil. 2004 à 13:34
9 juil. 2004 à 09:26
Merci pour ton commentaire, sergejb. Concernant l'utilisation de l'option [ofOverwritePrompt], je cherche précisément à éviter absolument tout message d'alerte, cette fonction étant destinée essentiellement à un traitement automatisé de fichiers qui porteraient éventuellement le même nom, mais qui ne seraient pas identiques (traitement d'images en série, etc...).
Dans cet esprit, et pour cet usage, elle est fiable, mais ça ne veut pas dire qu'elle n'est pas perfectible, je la reprendrai sans doute pour l'améliorer. Si l'on choisit W := 1, par exemple, on va passer de "fichier9.ext" à "fichier10.ext", ce qui n'est pas génant, même si "fichier10.ext" existe déjà, un fichier existant de même nom n'étant jamais écrasé, mais bon...
9 juil. 2004 à 08:11
SaveDialog1.Options := [ofOverwritePrompt];
on déclenche également automatiquement un message d'alerte qui evite l'écrasement. Alors une version simplifiée de la fonction IncIfExists peut etre codée, qui évite le test d'existence du fichier.
Bravo pour l'idée
8 juil. 2004 à 20:45