- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
- Charte de CommentCaMarche.net - Conseils d'écriture
- Charte de CodeS-SourceS - Principes de modération
- Conditions générales d'utilisation
- Charte d'utilisation de CodeS-SourceS - Aspects légaux
Renommer une série de fichiers [Résolu]
cincap
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
A voir également:
- Delphi renamefile
- Renamefile delphi - Meilleures réponses
- Delphi rename file - Meilleures réponses
- Fileserierename 1.0 - renommez en serie vos fichiers (photos) - par et1 - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Renomme en minuscule les fichiers dans un repertoire - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Renommer un groupe de fichier à la acdsee - Codes sources - C / C++ / C++.NET (Application)
- Renommer un lot de fichiers similaires - Codes sources - C# / .NET (Fichiers / Disque)
- Parcourir les répertoires - Renommer et Supprimer les fichiers - Codes sources - C / C++ / C++.NET (Fichiers / Disque)
20/23 réponses
Meilleure réponse
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour,
@ Tous, ce lien mène aussi à une version intéressante pour renommer des fichiers par drag and drop depuis l'exploreur.
http://www.delphifr.com/code.aspx?ID=39691
Le test avec "maison.txt, teste_01.txt et ciel.txt" a l'air de fonctionner.
@+,
Cincap
[url]mailto:/url
@ Tous, ce lien mène aussi à une version intéressante pour renommer des fichiers par drag and drop depuis l'exploreur.
http://www.delphifr.com/code.aspx?ID=39691
Le test avec "maison.txt, teste_01.txt et ciel.txt" a l'air de fonctionner.
@+,
Cincap
[url]mailto:/url
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
resalut !
déjà, je ne vois pas de question =) donc je ne sais pas quel est ton probleme, ce que tu as essayé ou a quel endroit tu bloques.
si j'essaie de deviner, voila ce que j'en sors :
j'ai un fichier "bonjour.txt", je le passe au renommeur, j'obtiens "bonjour_01.txt".
Si je passe a nouveau le fichier au renommeur, j'obtiens "bonjour_01_01.txt" ce qui est totalement logique.
Est-ce que c'est ça que tu veux eviter ? c'est plutot à l'utilisateur de ne pas renommer 2 fois les fichiers ! sous peine d'obtenir de genre de resultats.
Si je me trompe de probleme, merci de l'xpliquer plus clairement.
déjà, je ne vois pas de question =) donc je ne sais pas quel est ton probleme, ce que tu as essayé ou a quel endroit tu bloques.
si j'essaie de deviner, voila ce que j'en sors :
j'ai un fichier "bonjour.txt", je le passe au renommeur, j'obtiens "bonjour_01.txt".
Si je passe a nouveau le fichier au renommeur, j'obtiens "bonjour_01_01.txt" ce qui est totalement logique.
Est-ce que c'est ça que tu veux eviter ? c'est plutot à l'utilisateur de ne pas renommer 2 fois les fichiers ! sous peine d'obtenir de genre de resultats.
Si je me trompe de probleme, merci de l'xpliquer plus clairement.
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonsoir,
@ JulioDelphi, c'est en fait ce que tu as deviné.
Je pensais que le fait de renommer éffacerai l'ancien nom donc "bonjour.txt" j'obtiens "bonjour_01.txt" ce qui est logique, mais par contre si je le renomme, cela devrai effacer "bonjour_01" et avoir le new nom.
Je me trompe peut-être.
Maintenant ta réponse est pertinente quand tu dis que c'est à l'utilisateur de ne pas renommé 2 x le même fichier.
Merci à toi,
@+,
Cincap
[url]mailto:/url
@ JulioDelphi, c'est en fait ce que tu as deviné.
Je pensais que le fait de renommer éffacerai l'ancien nom donc "bonjour.txt" j'obtiens "bonjour_01.txt" ce qui est logique, mais par contre si je le renomme, cela devrai effacer "bonjour_01" et avoir le new nom.
Je me trompe peut-être.
Maintenant ta réponse est pertinente quand tu dis que c'est à l'utilisateur de ne pas renommé 2 x le même fichier.
Merci à toi,
@+,
Cincap
[url]mailto:/url
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
Autre exemple :
voila ma liste de fichiers :
"bonjour.txt
salut.txt
machin.txt"
je les renomme avec la maniere 1, j'obtiens :
"bonjour.txt > bonjour_01.txt
salut.txt > salut_02.txt
machin.txt > machin_03.txt"
mais tu peux aussi demande un prefixe de nom de fichier, ce qui me donnerais avec le prefixe "julio":
"bonjour.txt >julio_01.txt
salut.txt>julio_02.txt
machin.txt>julio_03.txt"
tu vois ?
Mon site DELPHI =)
voila ma liste de fichiers :
"bonjour.txt
salut.txt
machin.txt"
je les renomme avec la maniere 1, j'obtiens :
"bonjour.txt > bonjour_01.txt
salut.txt > salut_02.txt
machin.txt > machin_03.txt"
mais tu peux aussi demande un prefixe de nom de fichier, ce qui me donnerais avec le prefixe "julio":
"bonjour.txt >julio_01.txt
salut.txt>julio_02.txt
machin.txt>julio_03.txt"
tu vois ?
Mon site DELPHI =)
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour,
@ JulioDelphi, je viens de tester ton exemple avec le code cité dans mon 1er message, avant tout il faut mettre déjà un new nom dans le Tedit 2 sinon on aura uniquement ceci : "_01.txt, _02.txt, _03.txt,_04.txt, _05.txt" (5 fichiers).
Si je met Julio, j'obtiens "Julio_01.txt, Julio_02.txt, Julio_03.txt, Julio_04.txt, Julio_05.txt" ce qui est le but.
Maintenant je renomme Julio en Juli (ou j'éfface le o) et j'obtiens "Juli_02.txt, Juli_03.txt, Juli_04.txt, Juli_05.txt, Juli_06.txt".
Le Juli_01.txt est disparu par contre à ce stade, si sans rien changer, je clique à nouveau sur le bouton "renommer" l'ordre est à nouveau correct et j'obtiens
"Juli_01.txt, Juli_02.txt, Juli_03.txt, Juli_04.txt, Juli_05.txt".
Dans la fonction citée plus haut, il y a bien un bug mais je ne trouve pas ou.
@+,
Cincap
[url]mailto:/url
@ JulioDelphi, je viens de tester ton exemple avec le code cité dans mon 1er message, avant tout il faut mettre déjà un new nom dans le Tedit 2 sinon on aura uniquement ceci : "_01.txt, _02.txt, _03.txt,_04.txt, _05.txt" (5 fichiers).
Si je met Julio, j'obtiens "Julio_01.txt, Julio_02.txt, Julio_03.txt, Julio_04.txt, Julio_05.txt" ce qui est le but.
Maintenant je renomme Julio en Juli (ou j'éfface le o) et j'obtiens "Juli_02.txt, Juli_03.txt, Juli_04.txt, Juli_05.txt, Juli_06.txt".
Le Juli_01.txt est disparu par contre à ce stade, si sans rien changer, je clique à nouveau sur le bouton "renommer" l'ordre est à nouveau correct et j'obtiens
"Juli_01.txt, Juli_02.txt, Juli_03.txt, Juli_04.txt, Juli_05.txt".
Dans la fonction citée plus haut, il y a bien un bug mais je ne trouve pas ou.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 424
- Date d'inscription
- mardi 3 janvier 2006
- Dernière intervention
- 26 novembre 2013
Salut cincap,
j'ai un peu retravaillé ta procedure et tout marche (changement en 'julio', puis 'juli' avec edit3.text = '*.*'
Attention : chaque fois que tu emploies un FindFirst, tu dois libérer avec FindClose ce que tu ne fais pas après la 1° recherche (pour nb de fichiers) et incorrectement la 2° fois puisque FindClose est dans le begin...end du if findfirst = 0... donc pas de FindClose si FindFirst était <> 0 (ce qui n'arrive pas ici, d'accord).
procedure TFiche.But_RenommerClick(Sender: TObject);
Var
IndexFichier, NombreFichiers, Rep: integer ;
Info : TSearchRec;
Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ;
begin
Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
NouveauNomDeFichier := edit2.Text;
NombreFichiers :=0 ;
If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
Repeat
NombreFichiers := NombreFichiers + 1 ;
Until FindNext(Info)<>0;
FindClose(Info);
if (NombreFichiers > 0) and
(Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(NombreFichiers)+' fichiers ***' ),
'Message ', MB_OKCANCEL) = IDOK) then
begin
ProgressBar1.Min := 0;
ProgressBar1.Max := NombreFichiers;
ProgressBar1.Position := 0 ;
try
If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
Begin
IndexFichier := 1 ;
Repeat
Fichier := Info.FindData.cFileName; // on recupere le nom du fichier
MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension
FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier;
RenameFile(Chemin + Fichier, FichierRenomme);
// compte les fichiers
IndexFichier := IndexFichier +1;
ProgressBar1.Position := ProgressBar1.Position +1 ;
Until FindNext(Info)<>0;
end;
Application.MessageBox(Pchar('*** Les '+IntToStr(NombreFichiers)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ;
finally
FindClose(Info);
end;
end;
end;
A +
Thierry
j'ai un peu retravaillé ta procedure et tout marche (changement en 'julio', puis 'juli' avec edit3.text = '*.*'
Attention : chaque fois que tu emploies un FindFirst, tu dois libérer avec FindClose ce que tu ne fais pas après la 1° recherche (pour nb de fichiers) et incorrectement la 2° fois puisque FindClose est dans le begin...end du if findfirst = 0... donc pas de FindClose si FindFirst était <> 0 (ce qui n'arrive pas ici, d'accord).
procedure TFiche.But_RenommerClick(Sender: TObject);
Var
IndexFichier, NombreFichiers, Rep: integer ;
Info : TSearchRec;
Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ;
begin
Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
NouveauNomDeFichier := edit2.Text;
NombreFichiers :=0 ;
If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
Repeat
NombreFichiers := NombreFichiers + 1 ;
Until FindNext(Info)<>0;
FindClose(Info);
if (NombreFichiers > 0) and
(Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(NombreFichiers)+' fichiers ***' ),
'Message ', MB_OKCANCEL) = IDOK) then
begin
ProgressBar1.Min := 0;
ProgressBar1.Max := NombreFichiers;
ProgressBar1.Position := 0 ;
try
If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
Begin
IndexFichier := 1 ;
Repeat
Fichier := Info.FindData.cFileName; // on recupere le nom du fichier
MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension
FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier;
RenameFile(Chemin + Fichier, FichierRenomme);
// compte les fichiers
IndexFichier := IndexFichier +1;
ProgressBar1.Position := ProgressBar1.Position +1 ;
Until FindNext(Info)<>0;
end;
Application.MessageBox(Pchar('*** Les '+IntToStr(NombreFichiers)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ;
finally
FindClose(Info);
end;
end;
end;
A +
Thierry
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonsoir,
@ ThWilliam, merci pour avoir regardé la source, j'ai donc refait le test et en effet, nous avons un new nom.
Seulement la numérotation une fois commence à _01 et puis si tu change le nom même d'une lettre, la numérotation commence au _02.
J'ai fait le test avec 5 fichiers *.txt
Le nom = new j'obtiens new_01 .._05
Le nom = new2 j'obtiens new_01 .._05
J'enlève le 2
Le nom = new j'obtiens new_02 .._06
Va comprendre.
Merci encore,
@+,
Cincap
[url]mailto:/url
@ ThWilliam, merci pour avoir regardé la source, j'ai donc refait le test et en effet, nous avons un new nom.
Seulement la numérotation une fois commence à _01 et puis si tu change le nom même d'une lettre, la numérotation commence au _02.
J'ai fait le test avec 5 fichiers *.txt
Le nom = new j'obtiens new_01 .._05
Le nom = new2 j'obtiens new_01 .._05
J'enlève le 2
Le nom = new j'obtiens new_02 .._06
Va comprendre.
Merci encore,
@+,
Cincap
[url]mailto:/url
- Messages postés
- 424
- Date d'inscription
- mardi 3 janvier 2006
- Dernière intervention
- 26 novembre 2013
En stockant les noms de fichiers à renommer dans un TStringList, plus de problèmes.
procedure TFiche.But_RenommerClick(Sender: TObject);
Var
IndexFichier: integer ;
Info : TSearchRec;
Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ;
MaListe: TStringList;
I: integer;
begin
Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
NouveauNomDeFichier := edit2.Text;
MaListe:= TStringList.Create;
If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
Repeat
MaListe.Add(Info.Name);
Until FindNext(Info)<>0;
FindClose(Info);
if (MaListe.Count > 0) and
(Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(MaListe.Count)+' fichiers ***' ),
'Message ', MB_OKCANCEL) = IDOK) then
try
ProgressBar1.Min := 0;
ProgressBar1.Max := NombreFichiers;
ProgressBar1.Position := 0 ;
IndexFichier:= 1;
for I:= 0 to MaListe.Count -1 do
begin
Fichier := MaListe[I];
MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension
FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier;
RenameFile(Chemin + Fichier, FichierRenomme);
Inc(IndexFichier);
end;
ProgressBar1.Position := ProgressBar1.Position +1 ;
Application.MessageBox(Pchar('*** Les '+IntToStr(MaListe.Count)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ;
except
//....
end;
MaListe.Clear;
MaListe.Free;
end;
Petite remarque : il faudrait ajouter un test pour vérifier que le nouveau nom n'existe pas déjà :
exemple de trois fichiers : 'maison.txt', 'ciel.txt', 'test_02.txt'.
Tu renommes avec le préfixe 'test' : --> 'ciel.txt' devrait se renommer 'test_02.txt' !!!
A +
Thierry
procedure TFiche.But_RenommerClick(Sender: TObject);
Var
IndexFichier: integer ;
Info : TSearchRec;
Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ;
MaListe: TStringList;
I: integer;
begin
Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
NouveauNomDeFichier := edit2.Text;
MaListe:= TStringList.Create;
If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
Repeat
MaListe.Add(Info.Name);
Until FindNext(Info)<>0;
FindClose(Info);
if (MaListe.Count > 0) and
(Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(MaListe.Count)+' fichiers ***' ),
'Message ', MB_OKCANCEL) = IDOK) then
try
ProgressBar1.Min := 0;
ProgressBar1.Max := NombreFichiers;
ProgressBar1.Position := 0 ;
IndexFichier:= 1;
for I:= 0 to MaListe.Count -1 do
begin
Fichier := MaListe[I];
MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension
FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier;
RenameFile(Chemin + Fichier, FichierRenomme);
Inc(IndexFichier);
end;
ProgressBar1.Position := ProgressBar1.Position +1 ;
Application.MessageBox(Pchar('*** Les '+IntToStr(MaListe.Count)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ;
except
//....
end;
MaListe.Clear;
MaListe.Free;
end;
Petite remarque : il faudrait ajouter un test pour vérifier que le nouveau nom n'existe pas déjà :
exemple de trois fichiers : 'maison.txt', 'ciel.txt', 'test_02.txt'.
Tu renommes avec le préfixe 'test' : --> 'ciel.txt' devrait se renommer 'test_02.txt' !!!
A +
Thierry
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonsoir,
@ ThWilliam, super de chez super, enfin cela fonctionne, tu es un as.
J'ai simplement rajouté dans la variable de ta solution "Nombrefichiers" pour le progressbar (sans importance).
Sinon le new nom ne s'additionne plus et s'incrémente correctement comme quoi.
Merci pour ta patience.
@+,
Cincap
[url]mailto:/url
@ ThWilliam, super de chez super, enfin cela fonctionne, tu es un as.
J'ai simplement rajouté dans la variable de ta solution "Nombrefichiers" pour le progressbar (sans importance).
Sinon le new nom ne s'additionne plus et s'incrémente correctement comme quoi.
Merci pour ta patience.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Je viens de tester avec les 3 fichiers 'maison.txt', 'ciel.txt', 'test_02.txt'.
Avec le préfixe 'test'
la 1ère fois, j'obtiens test_01.txt, test_03.txt et maison.txt, lui ne se renomme pas
la 2ième fois, j'obtiens test_02.txt, test_03.txt et maison.txt, lui ne se renomme pas
la 3ième fois, j'obtiens test_02.txt, test_03.txt et test_01.txt (maison.txt).
A n'y rien comprendre.
Ne te tracasse pas trop.
@+,
Cincap
[url]mailto:/url
Avec le préfixe 'test'
la 1ère fois, j'obtiens test_01.txt, test_03.txt et maison.txt, lui ne se renomme pas
la 2ième fois, j'obtiens test_02.txt, test_03.txt et maison.txt, lui ne se renomme pas
la 3ième fois, j'obtiens test_02.txt, test_03.txt et test_01.txt (maison.txt).
A n'y rien comprendre.
Ne te tracasse pas trop.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour,
@ ThWilliam,
Après les différents tests, j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique '_01....).
3 fichiers 'maison.txt', 'ciel.txt', 'test.txt'.
Préfixe "test" j'obtiens test_01.txt, test_02.txt et test_03.txt ce qui est le but.
Bonne journée.
@+,
Cincap
[url]mailto:/url
@ ThWilliam,
Après les différents tests, j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique '_01....).
3 fichiers 'maison.txt', 'ciel.txt', 'test.txt'.
Préfixe "test" j'obtiens test_01.txt, test_02.txt et test_03.txt ce qui est le but.
Bonne journée.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 424
- Date d'inscription
- mardi 3 janvier 2006
- Dernière intervention
- 26 novembre 2013
Salut Cincap,
"j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique '_01....)"
Non, ce n'est pas cela la cause.
Ce qui se passe en fait c'est que le 'renommage' s'est opéré chronologiquement ainsi (je pense que ici FindFirst,FindNext renvoie les fichiers triés alphabétiquement : à vérifier) :
- "ciel.txt" est correctement renommé en "test_01.txt"
- "maison.txt" aurait du s'appeler "test_02.txt", mais comme ce nom existe déjà, la fonction RenameFile échoue --> cela reste "maison.txt". Mais, d'après le code, indexfichier s'incrémente, donc passe à 03.
- "test_02.txt" se renomme bien en "test_03.txt"
Au deuxième passage (tjs dans l'ordre alphabétique) :
- "maison.txt" devrait se renommer en "test_01.text", mais ce nom existe déjà, donc pas de renommage et incrémentation de indexfichier à 02.
- "test_01" se renomme bien en "test_02" (ce nom n'existe pas). Indexfichier devient 03.
- "test_03" reste donc "test_03".
RenameFile est une fonction qui renvoie true si le fichier a pu être renommé. Elle ne provoque pas d'exception du genre "erreur: impossible de renommer".
Tu dois absolument avant de renommer un fichier t'assurer que le nouveau nom n'existe déjà pas (sauf si c'est justement le nom original du fichier à renommer). Pour cela, tu a la fonction FileExists. Si cette fonction renvoie true, il faut alors modifier le nouveau nom. Mais il faut de nouveau vérifier si ce nom existe déjà... donc il faut pour chaque fichier faire une boucle avec FileExists jusqu'à trouver un nouveau nom qui n'existe pas. Il y a plusieurs solutions. A toi de voir ce que tu préfères comme nouveau nom.
Remarque : comme ta recherche de fichiers se fait avec attribut 'anyfile', tu prends tous les fichiers y compris les dossiers, fichiers cachés... Si tu veux éviter cela, il faut faire une vérification des attributs du fichier. On peut en reparler...
A +
Thierry
"j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique '_01....)"
Non, ce n'est pas cela la cause.
Ce qui se passe en fait c'est que le 'renommage' s'est opéré chronologiquement ainsi (je pense que ici FindFirst,FindNext renvoie les fichiers triés alphabétiquement : à vérifier) :
- "ciel.txt" est correctement renommé en "test_01.txt"
- "maison.txt" aurait du s'appeler "test_02.txt", mais comme ce nom existe déjà, la fonction RenameFile échoue --> cela reste "maison.txt". Mais, d'après le code, indexfichier s'incrémente, donc passe à 03.
- "test_02.txt" se renomme bien en "test_03.txt"
Au deuxième passage (tjs dans l'ordre alphabétique) :
- "maison.txt" devrait se renommer en "test_01.text", mais ce nom existe déjà, donc pas de renommage et incrémentation de indexfichier à 02.
- "test_01" se renomme bien en "test_02" (ce nom n'existe pas). Indexfichier devient 03.
- "test_03" reste donc "test_03".
RenameFile est une fonction qui renvoie true si le fichier a pu être renommé. Elle ne provoque pas d'exception du genre "erreur: impossible de renommer".
Tu dois absolument avant de renommer un fichier t'assurer que le nouveau nom n'existe déjà pas (sauf si c'est justement le nom original du fichier à renommer). Pour cela, tu a la fonction FileExists. Si cette fonction renvoie true, il faut alors modifier le nouveau nom. Mais il faut de nouveau vérifier si ce nom existe déjà... donc il faut pour chaque fichier faire une boucle avec FileExists jusqu'à trouver un nouveau nom qui n'existe pas. Il y a plusieurs solutions. A toi de voir ce que tu préfères comme nouveau nom.
Remarque : comme ta recherche de fichiers se fait avec attribut 'anyfile', tu prends tous les fichiers y compris les dossiers, fichiers cachés... Si tu veux éviter cela, il faut faire une vérification des attributs du fichier. On peut en reparler...
A +
Thierry
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour,
@ ThWilliam, oui bien vu j'avais aussi interverti l'ordre pour m'en assurer.
Avec la source : http://www.delphifr.com/code.aspx?ID=26867 il y a aussi le même problème il me semble.
sinon ne te tracasses pas trop, je m'arrangerai pour que mes photos aient un nom plausible.
Grand merci pour ton intervention.
@+,
Cincap
[url]mailto:/url
@ ThWilliam, oui bien vu j'avais aussi interverti l'ordre pour m'en assurer.
Avec la source : http://www.delphifr.com/code.aspx?ID=26867 il y a aussi le même problème il me semble.
sinon ne te tracasses pas trop, je m'arrangerai pour que mes photos aient un nom plausible.
Grand merci pour ton intervention.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
que de complications ...
Bon alors... juste pour tester tu places 3 TEdit 3 TListBox 2 TButton et 1 TLabel sur ta fiche:
Tu nommes les TEdit comme suit:
Edit1 = ed_Directory
Edit2 = ed_Extension
Edit3 = ed_NewName
ed_Directory = 'C:\Mes Images\'
ed_Extension = '*.bmp'
ed_NewName = 'Image_'
Les lignes en violet sont juste la pour tester elles sont a remplacer par la ligne en commentaire
// Ici l'on récupère les fichier qui seront renommés
procedure TForm1.FormCreate(Sender: TObject);
Var aDir : String;
begin
aDir : = ed_Directory.Text + ed_Extension.Text;
SendMessage(ListBox1.Handle,
LB_DIR, DDL_ARCHIVE + DDL_READWRITE + DDL_EXCLUSIVE, Integer(aDir));
Label1.Caption := IntToStr(ListBox1.Items.Count); // juste pour voir le nombre de fichiers
end ;
// C'est ici que l'on renomme les fichiers
procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
Ext, Num : String;
begin
ListBox2.Clear; // a supprimer
For I : = 0 to ListBox1.Items.Count -1 do Begin
Ext := ExtractFileExt(ListBox1.Items[I]);
Num := format('%.3d', [I + 1]); // permet d'obtenir un nombre à trois chiffres Ex. 001
ListBox2.Items.Add(ed_NewName.Text + Num + Ext);// a remplacer par :
{MoveFileEx(PChar(ed_Directory.Text + ListBox1.Items[I]),
PChar(ed_Directory.Text + ed_NewName.Text + Num + Ext),
MOVEFILE_COPY_ALLOWED or MOVEFILE_WRITE_THROUGH);}
// MoveFileEx te permet de renommer même sur un autre lecteur que le lecteur source
// grace a MOVEFILE_COPY_ALLOWED.
// et MOVEFILE_WRITE_THROUGH rend la main à l'application
// uniquement quand la copie/déplacement est éffectué
End;
end;
// Ici on renomme les fichiers une deuxième fois (juste pour tester)
procedure TForm1.Button2Click(Sender: TObject);
Var I : Integer;
Ext, Num : String;
begin
ListBox3.Clear;// a supprimer
For I : = 0 to ListBox2.Items.Count -1 do Begin
Ext := ExtractFileExt(ListBox2.Items[I]);
Num := format('%.3d', [I + 1]);
ListBox3.Items.Add('Teste_' + Num + Ext); // a remplacer par :
{MoveFileEx(PChar(ed_Directory.Text + ListBox2.Items[I]),
PChar(ed_Directory.Text + 'Teste_' + Num + Ext),
MOVEFILE_COPY_ALLOWED or MOVEFILE_WRITE_THROUGH);}
End;
end;
Si tu n'as pas tout compris n'hésite pas à me le dire
@+
Cirec
<hr size ="2" />
que de complications ...
Bon alors... juste pour tester tu places 3 TEdit 3 TListBox 2 TButton et 1 TLabel sur ta fiche:
Tu nommes les TEdit comme suit:
Edit1 = ed_Directory
Edit2 = ed_Extension
Edit3 = ed_NewName
ed_Directory = 'C:\Mes Images\'
ed_Extension = '*.bmp'
ed_NewName = 'Image_'
Les lignes en violet sont juste la pour tester elles sont a remplacer par la ligne en commentaire
// Ici l'on récupère les fichier qui seront renommés
procedure TForm1.FormCreate(Sender: TObject);
Var aDir : String;
begin
aDir : = ed_Directory.Text + ed_Extension.Text;
SendMessage(ListBox1.Handle,
LB_DIR, DDL_ARCHIVE + DDL_READWRITE + DDL_EXCLUSIVE, Integer(aDir));
Label1.Caption := IntToStr(ListBox1.Items.Count); // juste pour voir le nombre de fichiers
end ;
// C'est ici que l'on renomme les fichiers
procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
Ext, Num : String;
begin
ListBox2.Clear; // a supprimer
For I : = 0 to ListBox1.Items.Count -1 do Begin
Ext := ExtractFileExt(ListBox1.Items[I]);
Num := format('%.3d', [I + 1]); // permet d'obtenir un nombre à trois chiffres Ex. 001
ListBox2.Items.Add(ed_NewName.Text + Num + Ext);// a remplacer par :
{MoveFileEx(PChar(ed_Directory.Text + ListBox1.Items[I]),
PChar(ed_Directory.Text + ed_NewName.Text + Num + Ext),
MOVEFILE_COPY_ALLOWED or MOVEFILE_WRITE_THROUGH);}
// MoveFileEx te permet de renommer même sur un autre lecteur que le lecteur source
// grace a MOVEFILE_COPY_ALLOWED.
// et MOVEFILE_WRITE_THROUGH rend la main à l'application
// uniquement quand la copie/déplacement est éffectué
End;
end;
// Ici on renomme les fichiers une deuxième fois (juste pour tester)
procedure TForm1.Button2Click(Sender: TObject);
Var I : Integer;
Ext, Num : String;
begin
ListBox3.Clear;// a supprimer
For I : = 0 to ListBox2.Items.Count -1 do Begin
Ext := ExtractFileExt(ListBox2.Items[I]);
Num := format('%.3d', [I + 1]);
ListBox3.Items.Add('Teste_' + Num + Ext); // a remplacer par :
{MoveFileEx(PChar(ed_Directory.Text + ListBox2.Items[I]),
PChar(ed_Directory.Text + 'Teste_' + Num + Ext),
MOVEFILE_COPY_ALLOWED or MOVEFILE_WRITE_THROUGH);}
End;
end;
Si tu n'as pas tout compris n'hésite pas à me le dire
@+
Cirec
<hr size ="2" />
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour,
@ Cirec, je te remercie de participer à ce post , j'essaye de tester ton code en recréant une nouvelle application et pourtant aucun résultat, rien ne s'affiche dans les listbox.
La question, le dir, l'extension et le new nom doivent se mettre avant la création de la fiche ou après (j'ai testé les deux),
Je continue à chercher le pq.
Bon dimanche.
@+,
Cincap
[url]mailto:/url
@ Cirec, je te remercie de participer à ce post , j'essaye de tester ton code en recréant une nouvelle application et pourtant aucun résultat, rien ne s'affiche dans les listbox.
La question, le dir, l'extension et le new nom doivent se mettre avant la création de la fiche ou après (j'ai testé les deux),
Je continue à chercher le pq.
Bon dimanche.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
@ Cirec, C'est OK
1- je testais sur des *.jpg et je n'avais pas mis dans l'uses "JPEG".
2- Je n'avais pas aussi terminer le chemin avec la barre oblique.
Cela à l'air très concluant avec si peu de code, je continue à tester et je te tiens au courant.
@+,
Cincap
[url]mailto:/url
1- je testais sur des *.jpg et je n'avais pas mis dans l'uses "JPEG".
2- Je n'avais pas aussi terminer le chemin avec la barre oblique.
Cela à l'air très concluant avec si peu de code, je continue à tester et je te tiens au courant.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 424
- Date d'inscription
- mardi 3 janvier 2006
- Dernière intervention
- 26 novembre 2013
Salut Cirec,
Très bon code (comme d'habitude).
Deux remarques :
F:= '%.' + IntToStr(Length(IntToStr(ListBox1.Items.Count))) + 'd';
//...
Num := format(F, [I + 1]);
Cela permet de s'assurer que l'on aura assez de chiffres pour le nombre de fichiers.
Ta procedure Button1Click ne résoud pas le problème de 'renommage' avec un nouveau nom existant déjà : dans ce cas, le fichier n'est pas renommé.
ex: 'maison.txt' et 'texte01.txt' : à renommer en 'texte' + 2 chiffres --> si 'maison.txt' est à renommer le premier, il ne sera pas renommé, et 'texte01.txt' deviendra 'texte02.txt'.
J'ai fait un test avec une boucle sur FileExists pour ajouter un chiffre si le fichier existe déjà, mais alors cela donne : 'texte011.txt' et 'texte02.txt'.
Il faudrait une méthode pour ne pas rompre la séquence des chiffres.
Faire un premier passages sur les items de ListBox1 en supprimant de la liste les fichiers qui ont pu être renommés, refaire un passage en partant du dernier nombre... ?
Ou as-tu une autre solution ?
A +
Thierry
Très bon code (comme d'habitude).
Deux remarques :
F:= '%.' + IntToStr(Length(IntToStr(ListBox1.Items.Count))) + 'd';
//...
Num := format(F, [I + 1]);
Cela permet de s'assurer que l'on aura assez de chiffres pour le nombre de fichiers.
Ta procedure Button1Click ne résoud pas le problème de 'renommage' avec un nouveau nom existant déjà : dans ce cas, le fichier n'est pas renommé.
ex: 'maison.txt' et 'texte01.txt' : à renommer en 'texte' + 2 chiffres --> si 'maison.txt' est à renommer le premier, il ne sera pas renommé, et 'texte01.txt' deviendra 'texte02.txt'.
J'ai fait un test avec une boucle sur FileExists pour ajouter un chiffre si le fichier existe déjà, mais alors cela donne : 'texte011.txt' et 'texte02.txt'.
Il faudrait une méthode pour ne pas rompre la séquence des chiffres.
Faire un premier passages sur les items de ListBox1 en supprimant de la liste les fichiers qui ont pu être renommés, refaire un passage en partant du dernier nombre... ?
Ou as-tu une autre solution ?
A +
Thierry
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Merci,
j'ai testé plusieurs cas de figure (en même temps il était presque 3 heure du mat) et tous se passe toujours comme prévu.
mais il est vrai que dans ce cas particulier maison.txt ne sera pas renommé sauf si l'on ajoute ceci :
MOVEFILE_REPLACE_EXISTING
Mais ceci aura pour effet de renommer Maison.txt en Teste01.txt et du coup l'ancien Teste01.txt est écrasé
un truc très simple serai de remplacer Teste par Teste_ où en d'autres
termes s'assurer que NewName ne fait pas partie de la liste de fichier
existant
j'ai pas cherché plus loin mais il y certainement un moyen de résoudre ce problème
@+
Cirec
<hr size="2" />
j'ai testé plusieurs cas de figure (en même temps il était presque 3 heure du mat) et tous se passe toujours comme prévu.
mais il est vrai que dans ce cas particulier maison.txt ne sera pas renommé sauf si l'on ajoute ceci :
MOVEFILE_REPLACE_EXISTING
Mais ceci aura pour effet de renommer Maison.txt en Teste01.txt et du coup l'ancien Teste01.txt est écrasé
un truc très simple serai de remplacer Teste par Teste_ où en d'autres
termes s'assurer que NewName ne fait pas partie de la liste de fichier
existant
j'ai pas cherché plus loin mais il y certainement un moyen de résoudre ce problème
@+
Cirec
<hr size="2" />
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
ps: j'ai oublié ... en ce qui concerne la numérotation on peut effectivement faire comme le propose ThWilliam
F:= '%.' + IntToStr(Length(IntToStr(ListBox1.Items.Count))) + 'd';
j'avais prévu le coup pour 3 chiffres de 1 à 999 ce qui me semblait suffisant ...
mais on peut aussi tout simplement faire comme ceci (sans calcule supplémentaire) : format('%. 4 d', [I + 1]);
ce qui donne un résultat de 1 à 9999 ... au delà c'est du "suicide"
@+
Cirec
<hr size ="2" />
F:= '%.' + IntToStr(Length(IntToStr(ListBox1.Items.Count))) + 'd';
j'avais prévu le coup pour 3 chiffres de 1 à 999 ce qui me semblait suffisant ...
mais on peut aussi tout simplement faire comme ceci (sans calcule supplémentaire) : format('%. 4 d', [I + 1]);
ce qui donne un résultat de 1 à 9999 ... au delà c'est du "suicide"
@+
Cirec
<hr size ="2" />
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.