Bonjour,

j'ai l'ambition de me créer un petit vbscript qui me permette de renommer les photos d'un répertoire selon leur date de prise de vue.

si j'arrive bien à renommer un fichier en vbs, je ne comprends pas bien comment récupérer les données EXIF de date de prise de vue de mes photos.

pourriez-vous m'aider ? voici mon code. merci
jeremy

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim stRep
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Users\Jerem7w\Pictures\transfert\calendrier"
 
If oFSO.FolderExists(stRep) Then
 For each oFl in  oFSO.GetFolder(stRep).Files
 
	oFl.Name = OFl.GetExifData(TagDateTimeOriginal)
 
 Next
End If