renommer une liste de fichiersRésolu

Question

Bonjour,
Je suis completement novice en vb, donc excusez moi de la question...

Je souhaite renommer tous les fichiers d'un r&#233;pertoire selon cet exemple : 
Avant renomme:
b-617970-01.jpg
....
Apres renomme:
 617970-01-0000-photo.jpg
....
Precision : les nombres 617970 et 01 doivent etres des variables 
car selon les fichiers, ils n'ont pas la m&#234;me valeur. Pour le reste, ce sont 
des constantes.

Merci &#224; tous pour votre aide si pr&#233;cieuse.

medelidrissi · Accepted Answer

Désolé, c'est dû à cause d'une petite erreur de calcule, pour remédier à cette gaffe remplace InStr(temptab(2), ".") ligne 34 par InStr(temptab(2), ".") - 1 Bonne programmation. Cordialement Mohamed El Idrissi

En Informatique, rien n'est impossible... mais... ce n'est pas toujours évident!

medelidrissi · Answer

Bonjour.


&#192; la suite &#224; ta demande voici un petit exemple, dans lequel tu trouveras, je pense, la r&#233;ponse &#224; ta demande : 
http://elidrissi.free.fr/downgdbond.php


Si quelque chose n'est pas clair, n'h&#233;site pas &#224; me le dire.


Bonne programmation.

Cordialement Mohamed El Idrissi 

<HR>
En Informatique, rien n'est impossible... mais... ce n'est pas toujours &#233;vident!

gdbond · Answer

Merci beaucoup de ton aide. C genial.

Je me penche sur le code et te recontacte si j'ai des question.

Merci encore

medelidrissi · Answer

Il n&#8217;y a pas de quoi, on est l&#224; pour partager nos connaissances


Bonne programmation.

Cordialement Mohamed El Idrissi 

<HR>
En Informatique, rien n'est impossible... mais... ce n'est pas toujours &#233;vident!

gdbond · Answer

Re bonjour,

Voila j'ai a nouveau une petite demande.
Comment faire pour que le renommage et la copie des fichiers renomm&#233;s soit fait
dans un autre r&#233;pertoire que le rertoire choisi initialement ?

Est-ce possible facilement avec le code d&#233;ja &#233;crit?

Merci d'avance

medelidrissi · Answer

Oui c'est possible pour cela remplace cette ligne(ligne 35)

Name tempPath & TabFile(i - 1) As tempPath & newname

par ceci :

Dim DestinationFile As String
'remplacer c:\windows\ par le nom de dossier de destination ne pas oublier \ &#224; la fin du dossier
DestinationFile = "c:\windows" & newname
FileCopy tempPath & TabFile(i - 1), DestinationFile

Ou bien t&#233;l&#233;charge directement : http://elidrissi.free.fr/downgdbond.php

Bonne programmation.

Cordialement Mohamed El Idrissi 

<HR>
En Informatique, rien n'est impossible... mais... ce n'est pas toujours &#233;vident!

medelidrissi · Answer

je pense que tu l'as t&#233;l&#233;charg&#233; avant que je l'aie mis &#224; jours de qlq seconde d&#233;sol&#233; ressaye de le ret&#233;l&#233;charger.


Bonne programmation.

Cordialement Mohamed El Idrissi 

<HR>
En Informatique, rien n'est impossible... mais... ce n'est pas toujours &#233;vident!

Gobillot · Answer

Name accepte d'avoir un r&#233;pertoire diff&#233;rent pour la source et la destination, &#231;a remplace un Move, le fichier source est d&#233;plac&#233; et renomm&#233;.
cest pas ce que tu veux, parce que le fichier source n'existe plus ???

Name tempPath1 & TabFile(i - 1) As tempPath2 & newname

Daniel

Gobillot · Answer

my name is "gd" not "bond"

Daniel

gdbond · Answer

Merci encore, le DestinationFile fonctionne super.
J'ai essay&#233; de modifier le code par tous les moyens et rien a faire : je n'arrive pas 
&#224; enlever le "." qu'il y a apres le temptab(2) sur tous les fichiers.

Exemple : 057877-02.-0000-photo.jpg
Il y a un point tu voies apres le 02 mais je n'arrive pas a le supprimer.

Peux-tu m'aider une derniere fois.....

Renommer une liste de fichiers

10 réponses

Discussions similaires