Hoe Bestandsattributen wijzigen

[HansFRAP]

Problem
Ik heb een groepsrondreisje gemaakt en daarbij foto's gemaakt. De camera's van verschillende groepsleden stonden niet allemaal op de zelfde tijd. (Sommige nog op zomertijd, andere op wintertijd en sommige zijn niet op de lokale tijd gezet)

Kortom: om een synchroon verloop van foto's te krijgen zou ik attribuut willen aanpassen

Met:
With CreateObject("shell.application").Namespace("C:\data\foto\rondreis\Fotogroepslid1")
c320 = .getdetailsof(.Items.Item("HF_0261.JPG"), 4)
End With

kan ik bestandsattribuut uitlezen en deze allemaal in een tabel plaatsen.
Ik zou dan handmatig een tijdcorrectie willen toevoegen en dan het attribuut van bestand laten bijwerken.

Vraag
Hoe schrijf ik attributen weer weg?

 

[HansFRAP]

Dit probleem op een andere manier opgelost. Wel complex!

Stappen naar oplossing:
- Plaats alle foto's in een aparte directory
- Maak een overzicht van alle bestanden die je wilt corrigeren in deze directory ( vanuit cmd: Dir > C;\data\fotooverzicht\foto_Nm_Date.txt )
- Lees bestand: foto_Nm-Date.txt in, in Excel
- Vertaal kolom naar kolommen (opslag tijd wordt als tijd weergegeven)
- Plaats in Excel, in een nieuwe kolom de nieuwe tijd (correctie + 02:00:00 oid.)
- Laat in nieuwe kolom de nieuwe tijd berekenen
- Maak nieuwe kolom waarin nieuwe tijd met originele naam worden geplaatst
- Sla de originele bestanden op in nieuwe dir met de nieuwe naam die nu dus bestaat uit: nieuwe tijd & originele naam
- Dit heb ik gedaan voor de alle bestanden. Foto's van de telefoon (met juiste tijd) laat ik vooraf gaan met de originele tijd.
- Alle foto's in uiteindelijke dir plaatsen, sorteren op naam en 'klaar' .