renommer fichier dans tableau

Version imprimable

modifier Nom de Fichier

Bonjour,

Je souhaite modifier les noms de fichier contenus dans un répertoire en commençant par le dernier de la liste

j'ai trouver un début de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LectRep (stR )
 For each oFld in  oFSO.GetFolder(stR).SubFolders
   Wscript.Echo "--------------- " & oFld.PAth & "-----------------"
   ListeFichier (oFld.PATH)   
   LectRep oFld.PATH
 Next
end sub
'
' Listing des fichiers du répertoire
'
Sub ListeFichier (stR)
 For each oFl in  oFSO.GetFolder(stR).Files
   Wscript.Echo oFl.Name	
 Next
End sub

Merci pour votre Aide

03/03/2011, 13h06
hackoofr

:salut: Vous pouvez Consulter La :faq: Comment déplacer,renommer un fichier? :ccool:
03/03/2011, 14h07
micka180

Le Problème que je rencontre n'est pas à proprement le renommage des fichier mais plutôt comment le faire en partant du dernier jusqu'au premier.
Merci
03/03/2011, 15h13
SfJ5Rpw8

Bonjour, tu nous dis pas trop qu'elle est la règle pour renommer tes fichiers...

Je suis pas sur non plus que l'ordre d'apparition de tes fichiers dans ta liste soit toujours le même ...

Une solution est peu-être de stocker la liste des fichiers à renommer dans un tableau voir : les variables tableaux puis de parcourir ce tableau grâce à une boucle For du dernier élément ( voir ubound...) jusqu'au premier ( 0)

;)
03/03/2011, 15h51
micka180

peut être est il possible de récupérer les noms de fichier, de les placer dans un fichier.txt puis de traiter les noms dans le fichiers text ???
03/03/2011, 16h01
micka180

non ma méthode n'est pas cohérente, je ne peux pas réutiliser les fichier dans ce cas.
je suis dans l'obligation de passer par un tableau.

j'ai réussi à classer mes fichier dans un tableau dans un ordre de création décroissant.

via ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 '---lister les fichiers du répertoire --- Sub TriRepertoire() Dim fso, fichier, fileItem Dim i, imax, z, valeur, cible, liste ' WScript.Echo TriRepertoire,,"Enumération" & Rep Rep = "D:\partage\Courbes\Images" Set fso = CreateObject("Scripting.FileSystemObject") imax = 0 'début de l'énumération For Each fichier In fso.GetFolder(Rep).Files Set fileItem = fso.GetFile(fichier) imax = imax + 1 ReDim Preserve Tableau(2, imax) Tableau(1, imax) = Fichier.Name Tableau(2, imax) = FileItem.DateCreated '---trier les fichiers par ordre décroissant de création --- Do Valeur = 0 For i = 1 To imax - 1 If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then For z = 1 To 2 Cible = Tableau(z, i) Tableau(z, i) = Tableau(z, i + 1) Tableau(z, i + 1) = Cible Next Valeur = 1 End If Next Loop While Valeur = 1 Set fileItem = nothing Next 'Affichage du résultat classé For i = 1 To imax WScript.Sleep 3000 liste = liste &vbTab& i &vbTab& Tableau(1, i) &Space(2)&vbTab&vbTab& Tableau(2, i) &vbCr Wscript.Echo liste &i & " / " & imax &Space(3)& "Liste du répertoire"&Space(3)& Rep WScript.Echo liste If i = imax Then WScript.Echo liste &"Liste du répertoire" &Space(3) &Rep Next Set fso = nothing End sub
le résultat m'apparais de la sorte
1 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
1 chartrad135B5.tmp.png 3/8/2011 10:07:14 AM
2 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
2 chartrad176A4.tmp.png 3/8/2011 10:07:14 AM
3 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
3 chartrad1A033.tmp.png 3/8/2011 10:07:14 AM
4 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
4 chartrad77F5C.tmp.png 3/8/2011 10:07:14 AM
5 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
5 chartrad856ED.tmp.png 3/8/2011 10:07:14 AM
6 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
6 chartradB948D.tmp.png 3/8/2011 10:07:14 AM
7 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
7 chartradC515F.tmp.png 3/8/2011 10:07:14 AM
8 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
8 chartradC581B.tmp.png 3/8/2011 10:07:14 AM
9 / 12 Liste du répertoire D:\partage\Courbes\Images 10:07:14 AM
9 chartradC8E5F.tmp.png 3/8/2011 10:07:14 AM
10 / 12 Liste du répertoire D:\partage\Courbes\Images10:07:14 AM
10 chartradECA42.tmp.png 3/8/2011 10:07:14 AM
11 / 12 Liste du répertoire D:\partage\Courbes\Images10:07:14 AM
11 chartradEFB66.tmp.png 3/8/2011 10:07:14 AM
12 / 12 Liste du répertoire D:\partage\Courbes\Images10:07:14 AM
12 chartradFE99B.tmp.png 3/8/2011 10:07:14 AM
Liste du répertoire D:\partage\Courbes\Images 3/8/2011 10:07:14 AM

Maintenant je cherche à modifier le nom de mes fichier par des nom fixes

Exemple

emplacement 12 sera toujours remplacé par toto.png
emplacement 11 sera toujours remplacé par lulu.png

et la j'ai besoin d'un coup de main

renommer fichier dans tableau

Bonjour

je me permet de refaire mon message car le précédant était trop fouilli.

donc dans le script ci-dessous, je tri les fichiers présents dans un répertoire dans un tableau.

je souhaite renommer les fichiers de l'emplacement 12 à l'emplacement 1

sachant que le fichier sur emplacement 12 aura toujours un nom fixe comme toto.png, 11 toujours lulu.png et ainsi de suite jusqu'à emplacement 1

Merci de votre aide

voici mon script

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'---lister les fichiers du répertoire ---
Sub TriRepertoire()
 Dim fso, fichier, fileItem
 Dim i, imax, z, valeur, cible, liste
' WScript.Echo TriRepertoire,,"Enumération" & Rep
Rep = "D:\partage\Courbes\Images"
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 imax = 0
 'début de l'énumération
 For Each fichier In fso.GetFolder(Rep).Files
 Set fileItem = fso.GetFile(fichier)
 
 imax = imax + 1
 ReDim Preserve Tableau(2, imax)
 Tableau(1, imax) = Fichier.Name
 Tableau(2, imax) = FileItem.DateCreated
 
 '---trier les fichiers par ordre décroissant de création ---
 Do
 Valeur = 0
 For i = 1 To imax - 1
 If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
 For z = 1 To 2
 Cible = Tableau(z, i)
 Tableau(z, i) = Tableau(z, i + 1)
 Tableau(z, i + 1) = Cible
 Next
 Valeur = 1
 End If
 Next
 Loop While Valeur = 1
 Set fileItem = nothing
 Next
 
 'Affichage du résultat classé
 For i = 1 To imax
 WScript.Sleep 3000
 liste = liste &vbTab& i &vbTab& Tableau(1, i) &Space(2)&vbTab&vbTab& Tableau(2, i) &vbCr
 Wscript.Echo liste &i & " / " & imax &Space(3)& "Liste du répertoire"&Space(3)& Rep
 WScript.Echo liste
 If i = imax Then WScript.Echo liste &"Liste du répertoire" &Space(3) &Rep
 
 Next
 
 Set fso = nothing
End sub

09/03/2011, 22h16
SfJ5Rpw8

bonsoir,

et il te manque quoi ?

Plutôt que faire une boucle affichant ta liste de fichiers avec date , numéro..
essai de faire un boucle affichant ancien nom et nouveau nom du fichier ..

pour compter de 12 à 1 c'est comme de 1 a 12 mais avec un pas de -1 (step -1) ..

et plus haut tu un lien vers un code pour renommer un fichier, c'est bon cela ?

Bonjour BBIL,

je n'ai pas réussi à incorporer la modification des noms de fichier dans la boucle.
je ne maitrise pas l'utilisation des tableaux.
mais j'ai pu trouver une solution de contournement.
comme je n'ai que 12 fichiers, je les ai entrés en dur.

cependant je suis preneur d'un coup de main pour avoir un affichage des anciens et nouveaux noms de fichier.

Merci

mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 '---lister les fichiers du répertoire ---
Sub TriRepertoire()
 Dim oFSO
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 Dim fso, fichier, fileItem
 Dim i, imax, z, valeur, cible, liste
' WScript.Echo TriRepertoire,,"Enumération" & Rep
Rep = "D:\partage\Courbes\Images"
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 imax = 0
 'début de l'énumération
 For Each fichier In fso.GetFolder(Rep).Files
 Set fileItem = fso.GetFile(fichier)
 
 imax = imax + 1
 ReDim Preserve Tableau(2, imax)
 Tableau(1, imax) = Fichier.Name
 Tableau(2, imax) = FileItem.DateLastModified
 
 
 '---trier les fichiers par ordre décroissant de création ---
 Do
 Valeur = 0
 For i = 1 To imax - 1
 If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
 For z = 1 To 2
 Cible = Tableau(z, i)
 Tableau(z, i) = Tableau(z, i + 1)
 Tableau(z, i + 1) = Cible
 Next
 Valeur = 1
 End If
 Next
 Loop While Valeur = 1
 Set fileItem = nothing
 Next
 
 'Affichage du résultat classé
 For i = 1 To imax
 WScript.Sleep 3000
 liste = liste &vbTab& i &vbTab& Tableau(1, i) &Space(2)&vbTab&vbTab& Tableau(2, i) &vbCr
 Wscript.Echo liste &i & " / " & imax &Space(3)& "Liste du répertoire"&Space(3)& Rep
 WScript.Echo liste
 'If i = imax Then WScript.Echo liste &"Liste du répertoire" &Space(3) &Rep
 Next
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 12),"D:\partage\Courbes\Images\St_Croix_04STECB9001_X.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 11),"D:\partage\Courbes\Images\St_Croix_04STECB9001_Y.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 10),"D:\partage\Courbes\Images\St_Tulle_Campus_04STETB7002_X.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 9),"D:\partage\Courbes\Images\St_Tulle_Campus_04STETB7002_Y.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 8),"D:\partage\Courbes\Images\Systeron_04SYSTB9001_X.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 7),"D:\partage\Courbes\Images\Systeron_04SYSTB9001_Y.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 6),"D:\partage\Courbes\Images\Curban_UH_05TALLB9001_X.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 5),"D:\partage\Courbes\Images\Curban_UH_05TALLB9001_Y.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 4),"D:\partage\Courbes\Images\Serre_Ponçon_05ESPIB9001_X.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 3),"D:\partage\Courbes\Images\Serre_Ponçon_05ESPIB9001_Y.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 2),"D:\partage\Courbes\Images\Vinon_UH_83VINOB9001_X.png"
oFSO.MoveFile "D:\partage\Courbes\Images\"&Tableau(1, 1),"D:\partage\Courbes\Images\Vinon_UH_83VINOB9001_Y.png"
 
 Set fso = nothing
End sub

15/03/2011, 11h39
micka180

Je pense que mes questions de novice vous exaspères.
Mon script fonctionne tant bien que mal, à moi de l'améliorer avec le temps.

Je tenais tout de même à tous vous remercier pour votre aide toujours précieuse.

une fois le script optimisé, je le placerai dans les contributions.

Merci !!