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
Partager