Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1118 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Renommer des fichiers

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Renommer des fichiers

n°180402
Laurie_
Posté le 23-07-2002 à 09:25:11  profilanswer
 

Bonjour tous, j'aurais besoin d'un truc tout simple :
Savoir commene renommer un fichier dont j'ai le path en faisant  précéder son nom d'une entête.
Exemple : file.txt --> jan02_file.txt
Voilà ^^
 
Enfin remarquez, tant que vous y êtes, en fait, j'ai même besoin de renomer de cette façon tous les fichers d'un dossier, il y a une subtilité pour ça ?
 
Merci d'avance
Laurie,
hardeuse.. euh, hardwareuse, pardon


Message édité par Laurie_ le 23-07-2002 à 09:34:46
mood
Publicité
Posté le 23-07-2002 à 09:25:11  profilanswer
 

n°180417
macray
Posté le 23-07-2002 à 09:40:20  profilanswer
 

tu as deux plusieurs façon !
 

  • 1- tu peux utiliser la fonction :


Code :
  1. filecopy([fichier source],[fichier destination],[true ou false])


 


 

  • 3- tu peux aussi allez sur www.vbfrance.com, tu as l'exemple, assez détaille, avec en plus une barre de progression...


 

  • 4- pour copier et changer tous les noms, tu as des contrôles qui s'apelle, "DRIVE", "DIR", "FILE"...
Code :
  1. ' contrôle DRive : dir.path = drive.path
  2. 'contrôle  DIR : file1.path = dir1.path


 
tu place le code dans les endroits respectifs. tu auras également à régler le "PATERN", c'est les extensions à afficher. Si tous marche bien tu auras l'affichage de tes fichiers dans le contrôle "Liste"...
 
tu n'auars plus qu'a prendre chaque fichier, dans une fonction, en utilisant une boucle, et les copier ensuite...
 

Code :
  1. for i = 0 to file1.listcount-1
  2. filecopy("[chemin source]/file1.file(i)","[chemin destination]/[nouveau nom] & (right(file1.list(i),4)", [true or false])
  3. next i


 
ps : il te manque les déclarations, je te laisse le soin de le faire ! :D  
 
voilà, voilou !  :D


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
n°180426
ChrisDv
Posté le 23-07-2002 à 09:47:55  profilanswer
 

ou bien fonction "Dir" pour récuperer les fichiers du répertoire
et fonction "Name" pour les renommer
 

Code :
  1. While Dir(chemin) <> ""
  2.     Name chemin+ancien_nom As chemin+nouveau_nom
  3. Wend


Message édité par ChrisDv le 23-07-2002 à 09:49:09
n°180513
Laurie_
Posté le 23-07-2002 à 11:22:42  profilanswer
 

Merci beaucoup, j'ai pris un peu des deux côtés et ça fonctionne presque comme je le voulais ;)

n°180533
macray
Posté le 23-07-2002 à 11:34:10  profilanswer
 

pkoi presque ?


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
n°180573
Laurie_
Posté le 23-07-2002 à 12:00:10  profilanswer
 

macray a écrit a écrit :

pkoi presque ?




 
Juste que j'ai changé un peu d'idée entre temps pour ne pas me prendre la tête.
Au fait, Je retire ce que j'ai dit : ça marche pas !  :ouch:  
 
J'ai testé le programme avec des 'nouveau document texte' et ça fonctionnait, pas contre, dés que je teste avec une image, un son ou n'importe quel autre fichier, il me balance une "erreur 53 : fichier introuvable". C'est normal docteur ?
 
Le code incriminé est le suivant :
 

Citation :

Name Dir.Path + File.FileName As Dir.Path + entete.Text + File.FileName


 
(Dir et File sont mes deux objets de browsing de dossier et de fichiers)
 
J'ai peur...  :heink:


Message édité par Laurie_ le 23-07-2002 à 12:01:09
n°180672
macray
Posté le 23-07-2002 à 13:24:06  profilanswer
 

Laurie_ a écrit a écrit :

 
 
Juste que j'ai changé un peu d'idée entre temps pour ne pas me prendre la tête.
Au fait, Je retire ce que j'ai dit : ça marche pas !  :ouch:  
 
J'ai testé le programme avec des 'nouveau document texte' et ça fonctionnait, pas contre, dés que je teste avec une image, un son ou n'importe quel autre fichier, il me balance une "erreur 53 : fichier introuvable". C'est normal docteur ?
 
Le code incriminé est le suivant :
 

Citation :

Name Dir.Path + File.FileName As Dir.Path + entete.Text + File.FileName


 
(Dir et File sont mes deux objets de browsing de dossier et de fichiers)
 
J'ai peur...  :heink:




 
 
 :non: c'est pas normal, il te manque soit des "\" ou alors les extensions, ou bien le chemin ce sont les trois seul possibilités...


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
n°180865
Laurie_
Posté le 23-07-2002 à 16:12:42  profilanswer
 

C'est bon, j'avais oublié un + "\" quelque part, du coup, ça fonctionnait avec mes fichiers de test à la racine mais pas avec d'autres fichiers que je prenais certes au hasard mais plus loin dans l'arborescence.
Merci encore  :wahoo:

n°180885
macray
Posté le 23-07-2002 à 16:24:29  profilanswer
 

c'est normal, fait attention...sur la racine tu auras probablement pas besoin de "\", par contre dans le cas contraire il te faudra le "\"
 
car VB, si je ne me trompe pas, sort les chemin sous cette forme :
 
1- quand tu est sur les racine: il te sort "c:\";"d:\",ect...
2- quant tu est sur des dosser : il te sort "[lecteur]:\dossier1", autrement des que ajoute un fichier derrière sa plante...car [lecteur]:\dossier1[fichier]" n'est pas un chemin valide. pour palier à ca problème, tu détecte avec les fonctions de manipulation de caractère, les longeur des chemin
 
ex :
 

Code :
  1. if len(dir1.path) = 3 then
  2. dir1.path & file1.filename
  3. else
  4. dir1.path & "\" file1.filename
  5. end if


 
avec ce code là, tu évite les erreur de "\"
 
voilà
@+  :hello:


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Renommer des fichiers

 

Sujets relatifs
Traitement de fichiers et ereg => please help !renomer/deplacer des fichiers en VBA ...
package F¨TP ,TELNET, gestion de fichiers..renommer les fichiers qui n'ont pas d'extension avec un .bat
une petite appli qui manipule des fichiersy'a moyen re renommer automatiquement les fichiers uploadés?
[Script] Renommer tous les fichiers d'un répertoirerenommer des fichiers
Comment renommer avec un script un ensemble de fichiers php en php3 ?[C++ ou VB] Renommer plusieurs fichiers
Plus de sujets relatifs à : Renommer des fichiers


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR