Bonjour à tous,

J'essai de créer un script qui renommerai toutes les photos d'un de mes dossiers par le nom de son dossier parent par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
for i = 1 to nbrdefichier
nom du dossier & i
next
 
mais je veux que l'incrémentation (i) prenne en compte la date de création de la photo...
 
Donc j'en suis là:
 
   Option Explicit
   Dim fso, f, fc, i, f1, oFolder, oShell, TitreDesFoto, counter, strMessage
   Dim t()
   On Error Resume Next
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set oShell = CreateObject("Shell.Application")
   Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&,"C:\Users\michael\Desktop\Formation script")
   Set f = fso.GetFolder(oFolder.ParentFolder.ParseName(oFolder.Title).Path)
 
If Err.number<>0 Then
   msgbox "L'erreur [" &_
   err.description & "] s'est produite"
   On Error GoTo 0
   Wscript.quit 1
End If
 
   TitreDesFoto = inputbox("Entrer le titre des photos")
   Set fc = f.Files
 
   'compter le nombre de fichier dans le dossier
   counter = -1
for each f1 in fc
   counter = counter + 1
next
 
   'creation du tableau a la taille necessaire
   redim t(counter , 1)
 
 
   'remplir le tableau
   i = 0
for each f1 in fc
   t(i, 0)= f1.Name
   t(i, 1)= left(f1.DateCreated,10)
   i = i + 1
next
je n'ai pas encore gérer la prise du nom du dossier parent mais pour le moment j'ai récupérer dans un tableau t(counter, 1) :

nomfichier1 ; datecreation
nomfichier2; datecreation
etc

mais afin de les renommer dans le bon ordre il me faudrai trier les données en fonction de la colonne 2.

J'ai regardé sur internet mais les code proposés sont énorme et je ne les comprend pas...

Merci par avance.