Firmware: A-410 [01 Apr. 2014] | A-400 [12 Mar. 2014] | C-300 [13 Feb. 2014] | A-300 [24 Feb. 2014] | C-200 [11 July 2013] | A-200/A-210 [11 July 2013] | Popbox V8 [3 Dec 2013]

Just got your NMT | WIKI has the answers | Search the forum | Forum Rules/Policy | Firmware & Official NMT News | Popcornhour manuals



User(s) browsing this thread: 1 Guest(s)
Thread Closed 
[PHOTO]: Solved, show photos ordered by Data Picture Taken
02-03-2011, 02:10 PM
Post: #1
[PHOTO]: Solved, show photos ordered by Data Picture Taken
Hi,

As many of you have discovered, when using the internal photoview functionality of the A100 series (maybe other models too, I wouldn't know) it shows the photos ordered by filename, instead of Date Picture Taken. That's all fine because your camera will usually name your photos using a naming scheme where pictures taken earlier have a lower number in the filename than pictures taken later....

until your photos get renamed or
until you put photos from two cameras into one directory.

You cannot influence the PopcornHour's behavior so usually you get the advice to use other software. However, here is another solution that does not involve using other software.

I've written a script that goes through a directory with jpeg photos, for each file, reads the metadata "Date Picture Taken" and renames the file to reflect this date. For instance, a photo taken on 11th of April 2008 at 5 past 1 PM, will be renamed to 200804111305.jpg. This way, sorting the photos by filename will become the same as sorting them by Date Picture.

1. Copy the script below and paste it in notepad on your XP, Vista or Windows 7 computer.
2. Edit the first line where you put the path to the directory of photos concerned.
3. Save the file with a .vbs extension, i.e. ChangePhotoFilenames.vbs.
4. Double click the resulting file to have the script execute.

Vincent

Folder="\\popcorn\share\Photo\2011"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(folder)
Set Fso=CreateObject("Scripting.FileSystemObject")

For Each strFileName in objFolder.Items
If Left(strFileName,2)<>"20" And UCase(Right(strFileName,4))=".JPG" Then 'Else file already done or no jpg file
DateTaken= objFolder.GetDetailsOf(strFileName, 25)
Jaar=Year(DateTaken)
Maand=WriteAsTwoDigits(Month(DateTaken))
Dag=WriteAsTwoDigits(Day(DateTaken))
Uur=WriteAsTwoDigits(Hour(DateTaken))
Minuut=WriteAsTwoDigits(Minute(DateTaken))
NewFileName= Jaar & Maand & Dag & Uur & Minuut & ".jpg"
If Fso.FileExists(folder+"\"+NewFileName) Then
i=1
Do
i=i+1
NewFileName= Jaar & Maand & Dag & Uur & Minuut & "_" & Cstr(i) & ".jpg"
Loop While Fso.FileExists (folder+"\"+NewFileName)
End If
Fso.MoveFile folder+"\"+strFileName, folder+"\"+NewFileName
End If
Next

Function WriteAsTwoDigits(strVariable)
If Len(strVariable)=1 Then
WriteAsTwoDigits= "0"& strVariable
Else
WriteAsTwoDigits= strVariable
End If
End Function
Find all posts by this user
Thread Closed 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  picture/no sound hatebreeders 3 1,476 12-06-2011 03:16 PM
Last Post: ZesPak
  Dia show peerke1947 3 1,046 11-03-2011 03:38 PM
Last Post: dc11ab
  Photo loading tim harrykausl 0 1,170 08-19-2011 07:35 AM
Last Post: harrykausl
  [PHOTO] Playlist file salutjet 0 1,268 02-10-2011 03:12 PM
Last Post: salutjet
  {PHOTO]: Displayed 'Comment' on photo information vtimmerm 0 951 02-03-2011 02:41 PM
Last Post: vtimmerm
  Freezing when playing photos doctaton 2 1,474 01-17-2011 11:28 PM
Last Post: k2teknik
  nmt doesn't show subs with mp4 Fonske64 3 2,661 08-19-2010 07:32 PM
Last Post: dc11ab
  background music while watching a photo slide show fadafwet 4 3,537 07-23-2010 11:08 AM
Last Post: mhut
  Random Photo Slideshow AS SCREENSAVER SoonerLater 0 1,608 05-29-2010 09:30 PM
Last Post: SoonerLater
  [subtitle] IDX/SUB show too low on screen in A-110 realpe 2 3,045 04-09-2010 07:26 AM
Last Post: realpe

Forum Jump: