Dim arrHeaders(40)
Dim strTmp
    strTmp = ""


sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 06 24 - Travel and Lamberts"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 06 25 Travel and Big Texan"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 06 26 - 4 Corners and Canyon de Chelly"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 06 28 - Painted Desert and Petrified Forest"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 06 29 - Grand Canyon"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 06 30 - Las Vegas and Hoover Dam"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 07 02 - Zion and Bryce Canyon"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 07 07 - Yellowstone"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 07 11 - Mount Rushmore - Hill City"
sFolderPathspec = "C:\Documents and Settings\Owner\Desktop\Vacation - 2009 07 Out West Trip - Condensed\2009 07 14 - Wall Drug to Sioux Falls, SD"


Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace(sFolderPathspec)


'Echo all properties available
For i = 0 to 40
  arrHeaders(i) = i & " " & objFolder.GetDetailsOf(objFolder.Items, i) 
Next 
wsh.echo join(arrHeaders, vbNewline)


'Echo all properties for all files
'For Each strFileName In objFolder.Items
'  For i = 0 To 40
'    WScript.Echo i & vbTab & arrHeaders(i) & ": " & objFolder.GetDetailsOf(strFileName, i)
'  Next
'Next


' Echo name and date taken for only Jonathan's files
For Each strFileName In objFolder.Items
    if lcase(left(strFileName,3)) = "100" and lcase(right(strFileName,3)) = "jpg" then
      dtOLDDateOfPicture = objFolder.GetDetailsOf(strFileName, 25)
      dtNEWDateOfPicture = dateadd("h",-1,dtOLDDateOfPicture) 
      dtNEWDateOfPicture = dateadd("n",0,dtNEWDateOfPicture)
      strFileName.ModifyDate = dtNEWDateOfPicture 
    end if
    if lcase(left(strFileName,3)) = "img" and lcase(right(strFileName,3)) = "jpg" then
      dtOLDDateOfPicture = objFolder.GetDetailsOf(strFileName, 25)
      strFileName.ModifyDate = dtOLDDateOfPicture 
    end if
Next