RENOMMAGE MASSIF DE FICHIERS

MoveX Messages postés 230 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 16 juillet 2005 - 15 oct. 2004 à 18:35
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 - 27 janv. 2007 à 07:58
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/26867-renommage-massif-de-fichiers

MoveX Messages postés 230 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 16 juillet 2005 1
15 oct. 2004 à 18:35
ca ressemble beaucoup a un prog que j avais fait, seulement, l upload sur le site avait rate.....
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
15 oct. 2004 à 21:55
Pour une première avec Delphi 7, c'est excellent.
Code bien structuré, documenté et les traitements sont bien isolés de la fiche pour être plus facilement réutilisables.
10/10 : on en redemande !
Si tu as d'autre sources de cette qualité, alors n'hésite pas.
Debiars Messages postés 285 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 février 2018
18 oct. 2004 à 15:41
Ton prog m'intéresse beaucoup, mais j'ai eu quelques menus problèmes.
La sélection par filtre ne marchait pas (à part *).

"tmpFolder.DisplayName" me renvoie une chaine au format WideString, ce qui fait que TestPrefixe et TestSuffixe répondent toujours "False".

J'ai réussi à tourner la difficulté en remplaçant

if TestPrefixe( prefixe, tmpFolder.DisplayName) and
TestSuffixe( suffixe, tmpFolder.DisplayName)

par

nomfic : String;
---------
nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));
if TestPrefixe( prefixe, nomfic) and
TestSuffixe( suffixe, nomfic)

dans la procédure Selectionner Filtre.

Y aurait-il plus simple ?
tonticoeur Messages postés 1 Date d'inscription vendredi 12 septembre 2003 Statut Membre Dernière intervention 18 octobre 2004
18 oct. 2004 à 16:40
Pour le filtre, c'est l'évenement "OnCloseUp" de la combo qui vient parturber le fonctionnement. Le mieux est de le supprimer et de faire un return après le sélection.
Concernant le folder, je ne compprends pas : Chez moi le DisplayName renvoi un String et ça fonctionne correctement.
Un petit signalement enfin et pour tout le monde : Il n'y a pas de demande de confirmation alors faite attention à votre sélection, car c'est un renommage violent !
Debiars Messages postés 285 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 février 2018
18 oct. 2004 à 20:07
Dans la série "on peut toujours mieux faire", je viens de remplacer :

nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));

par

nomfic := ExtractFileName ( tmpFolder.PathName);