Solved

How to create a list with filename and "Date Picture Taken"

Posted on 2008-09-30
11
1,072 Views
Last Modified: 2012-06-27
Is there any simple method to export (create) a list with filename and "Date Picture Taken" within a directory?
0
Comment
Question by:Hoogendoorn
  • 5
  • 5
11 Comments
 
LVL 39

Expert Comment

by:BrandonGalderisi
ID: 22606438
Something like this maybe?

Just save it as a VBS in the directory you want to scan.
Option Explicit

Dim fso, objShell, objFolder, tFolder, tFile

Dim currentFolder

Set fso=CreateObject("scripting.filesystemobject")

currentFolder = fso.GetAbsolutePathName(".")&"\"

Set tFolder = fso.getfolder(CurrentFolder)

Set objShell = CreateObject ("Shell.Application") 

Set objFolder = objShell.Namespace(Currentfolder) 
 

For each tFile in tFolder.files

If UCase(FileExt(tFile.name)) = "JPG" Then

     wscript.echo objFolder.GetDetailsOf(objFolder.Parsename(tFile.name), 0) 

     wscript.echo objFolder.GetDetailsOf(objFolder.Parsename(tFile.name), 10) 

     wscript.echo objFolder.GetDetailsOf(objFolder.Parsename(tFile.name), 24) 

     wscript.echo objFolder.GetDetailsOf(objFolder.Parsename(tFile.name), 25) 
 

'Extended file properties:

'0 Name 

'1 Size 

'2 Type 

'3 Date Modified 

'4 Date Created 

'5 Date Accessed 

'6 Attributes 

'7 Status 

'8 Owner 

'9 Author 

'10 Title 

'11 Subject 

'12 Category 

'13 Pages 

'14 Comments 

'15 Copyright 

'16 Artist 

'17 Album Title 

'18 Year 

'19 Track Number 

'20 Genre 

'21 Duration 

'22 Bit Rate 

'23 Protected 

'24 Camera Model 

'25 Date Picture Taken 

'26 Dimensions 

'27 

'28 

'29 Episode Name 

'30 Program Description 

'31 

'32 Audio sample size 

'33 Audio sample rate 

'34 Channels 

'35 Company 

'36 Description 

'37 File Version 

'38 Product Name 

'39 Product Version 

'40 Keywords 

End If
 

Next
 

Set fso=Nothing

Set tFolder = Nothing

Set tFile = Nothing

Set objFolder = Nothing
 

Function FileExt(FileName)

FileExt = Right(FileName, Len(FileName)-instrrev(FileName,"."))

End Function

Open in new window

0
 

Author Comment

by:Hoogendoorn
ID: 22607471
Thanks for your effort, Brandon. Unfortunately, I am an 'old' guy, only familiar with Fortran programming. Could you make to the script so, that it saves the file properties (including filename) to a file?
0
 
LVL 50

Expert Comment

by:jcimarron
ID: 22607615
Hoogendoorn--Possibly Karens Directory Printer
http://www.karenware.com/powertools/ptdirprn.asp
Very configurable.
0
 
LVL 39

Accepted Solution

by:
BrandonGalderisi earned 250 total points
ID: 22607839
This will output to a file called PictureInfo.txt in the same directory.
Option Explicit

Dim fso, objShell, objFolder, tFolder, tFile, toWrite, outFile

Dim currentFolder

Set fso=CreateObject("scripting.filesystemobject")

currentFolder = fso.GetAbsolutePathName(".")&"\"

Set tFolder = fso.getfolder(CurrentFolder)

Set objShell = CreateObject ("Shell.Application") 

Set objFolder = objShell.Namespace(Currentfolder) 

Set outFile = fso.createtextFile(CurrentFolder & "PictureInfo.txt",1,1)
 
 

For each tFile in tFolder.files

If UCase(FileExt(tFile.name)) = "JPG" Then

     toWrite = "File Name:" & objFolder.GetDetailsOf(objFolder.Parsename(tFile.name), 0)  & ";" & _

               "Date Taken:" & objFolder.GetDetailsOf(objFolder.Parsename(tFile.name), 25)  & ";"

outFile.writeline toWrite

     

'Extended file properties:

'0 Name 

'1 Size 

'2 Type 

'3 Date Modified 

'4 Date Created 

'5 Date Accessed 

'6 Attributes 

'7 Status 

'8 Owner 

'9 Author 

'10 Title 

'11 Subject 

'12 Category 

'13 Pages 

'14 Comments 

'15 Copyright 

'16 Artist 

'17 Album Title 

'18 Year 

'19 Track Number 

'20 Genre 

'21 Duration 

'22 Bit Rate 

'23 Protected 

'24 Camera Model 

'25 Date Picture Taken 

'26 Dimensions 

'27 

'28 

'29 Episode Name 

'30 Program Description 

'31 

'32 Audio sample size 

'33 Audio sample rate 

'34 Channels 

'35 Company 

'36 Description 

'37 File Version 

'38 Product Name 

'39 Product Version 

'40 Keywords 

End If
 

Next

outFile.close

Set outFile=Nothing

Set fso=Nothing

Set tFolder = Nothing

Set tFile = Nothing

Set objFolder = Nothing
 

Function FileExt(FileName)

FileExt = Right(FileName, Len(FileName)-instrrev(FileName,"."))

End Function

Open in new window

0
 

Author Comment

by:Hoogendoorn
ID: 22607899
Unfortunately Karen's Directory Printer does not cover JPG-attributes.
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 
LVL 39

Expert Comment

by:BrandonGalderisi
ID: 22607928
May want to change:

If UCase(FileExt(tFile.name)) = "JPG" Then

To:

If UCase(FileExt(tFile.name)) = "JPG" or UCase(FileExt(tFile.name)) = "JPEG" Then
0
 

Author Comment

by:Hoogendoorn
ID: 22607947
This seems OK, Brandon. One more request: is it also possible to add the seconds to the time?
0
 
LVL 39

Expert Comment

by:BrandonGalderisi
ID: 22608144
If it's not there, then no.  Most camera's don't have the concept of seconds anyway.
0
 

Author Comment

by:Hoogendoorn
ID: 22608348
Mmmm, when I look in File Info in Adobe Photoshop Elements the seconds are also displayed, so they should be there.
0
 
LVL 39

Expert Comment

by:BrandonGalderisi
ID: 22608558
"If it's not there"

obviously  shell.application.Namespace.GetDetailsOf doesn't display that though.
0
 

Author Comment

by:Hoogendoorn
ID: 22608590
Well, that's a pitty. Anyway, I accept the second VBS you supplied as solution. Tanks.
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Suggested Solutions

Can I legally transfer my OEM version of Windows to another PC?  (AKA - Can I put a new systemboard in my OEM PC?) Few of us are both IT and legal experts but we all have our own views of Microsoft's licensing rules and how they apply.  There are…
It is only natural that we all want our PCs to be in good working order, improved system performance, so that is exactly how programs are advertised to entice. They say things like:            •      PC crashes? Get registry cleaner to repair it!    …
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now