Renommer des fichiers

Renommer des fichiers - VB/VBA/VBS - Programmation

Marsh Posté le 23-07-2002 à 09:25:11    

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
Reply

Marsh Posté le 23-07-2002 à 09:25:11   

Reply

Marsh Posté le 23-07-2002 à 09:40:20    

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
Reply

Marsh Posté le 23-07-2002 à 09:47:55    

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
Reply

Marsh Posté le 23-07-2002 à 11:22:42    

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

Reply

Marsh Posté le 23-07-2002 à 11:34:10    

pkoi presque ?


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

Marsh Posté le 23-07-2002 à 12:00:10    

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
Reply

Marsh Posté le 23-07-2002 à 13:24:06    

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
Reply

Marsh Posté le 23-07-2002 à 16:12:42    

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:

Reply

Marsh Posté le 23-07-2002 à 16:24:29    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed