NE PAS ÉCRASER UN FICHIER EXISTANT - RENOMMER LE FICHIER CRÉÉ EN AJOUTANT UN NUM

Signaler
Messages postés
106
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
24 octobre 2005
-
Messages postés
106
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
24 octobre 2005
-
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

Messages postés
106
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
24 octobre 2005

j' ai un petit blem'. je te l' ai decris dans mon message sur le forum.
Messages postés
1722
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
22 octobre 2020
5
Ça répond à ce que tu cherchais, Joleroy ?
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...
Messages postés
20
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
12 juin 2006

Routine intéressante pour créer des versions incrémentales par exemple lors de sauvegardes automatiques ou de traitement à risques. Si on utilise complètement les options de SaveDialog (voir aide Borland):
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
Messages postés
106
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
24 octobre 2005

merci pour ton aide a +++