Is there a way to correct the "Date Picture Taken" property?

  • Thread starter Thread starter ihayman
  • Start date Start date
I

ihayman

Hi,

My digital camera had the wrong date/time set internally for a while - so
some of my pictures (hundreds of them) are all marked with the wrong
date/time.

Does anyone know how to change this property on a file using some kind of
scripting language or something?

I can get the date using the following script but I can't change it.
Any help would be greatly appreciated.

Thanks
Ian

sFolder = "C:\Documents and Settings\Me\My Documents\My Pictures\"
sFile = "myphoto.jpg"
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(sFolder)
Set oFolderItem = oFolder.ParseName(sFile)
sInfo = oFolder.GetDetailsOf(oFolderItem, 25)
WScript.Echo "Date Picture Taken: " & sInfo
 
As far as I know the date stamp is a graphic once applied

ihayman wrote:
|| Hi,
||
|| My digital camera had the wrong date/time set internally for a while
|| - so some of my pictures (hundreds of them) are all marked with the
|| wrong date/time.
||
|| Does anyone know how to change this property on a file using some
|| kind of scripting language or something?
||
|| I can get the date using the following script but I can't change it.
|| Any help would be greatly appreciated.
||
|| Thanks
|| Ian
||
|| sFolder = "C:\Documents and Settings\Me\My Documents\My Pictures\"
|| sFile = "myphoto.jpg"
|| Set oShell = CreateObject("Shell.Application")
|| Set oFolder = oShell.NameSpace(sFolder)
|| Set oFolderItem = oFolder.ParseName(sFile)
|| sInfo = oFolder.GetDetailsOf(oFolderItem, 25)
|| WScript.Echo "Date Picture Taken: " & sInfo
 
ihayman said:
Hi,

My digital camera had the wrong date/time set internally
for a while - so some of my pictures (hundreds of them)
are all marked with the wrong date/time.

Does anyone know how to change this property on a file
using some kind of scripting language or something?

I can get the date using the following script but I can't
change it.
Any help would be greatly appreciated.

Thanks
Ian

sFolder = "C:\Documents and Settings\Me\My Documents\My
Pictures\"
sFile = "myphoto.jpg"
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(sFolder)
Set oFolderItem = oFolder.ParseName(sFile)
sInfo = oFolder.GetDetailsOf(oFolderItem, 25)
WScript.Echo "Date Picture Taken: " & sInfo
Click to expand...
===================================
The following freebie can add / change dates
on the advanced summary tab of .jpg image
properties. You can do it in a batch also.

Exifer For Windows
http://tinyurl.com/ixso

Open Exifer and choose the folder...

With the selected folder open go to...Edit / Select All.
(Or..type...Ctrl / A)

Now...right click the selected group and choose...
EXIF-IPTC / Edit / EXIF data tab / Date tab...

Check the Date box and enter the correct date.
OK / Yes / No...

That should do it.

FWIW...Just for experiments to learn the program...
I suggest that you make copies of your images and
edit the copies. Actually I never edit my original files...
it's good insurance.

--

John Inzer
Picture It! MVP
return e-mail disabled

Picture It! Support Center
http://support.microsoft.com/?pr=pic
 
Back
Top