Hi, I am using scripting to get the time and date off some pictures.
I am having a problem the date/time properties missing the seconds
component. Formation the data as hh:mm:ss does not help.

Using windows 7, excel 2010


Name Size Item type Date modified
P1030001.JPG 5.31 MB JPG File 10/11/2010 8:11

Date created Date accessed Date taken
10/11/2010 8:11 22/10/2010 12:00 AM €Ž11/€Ž10/€Ž2010 €�€Ž8:11 AM


Sub Extract_file_details()
'http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_lunl.mspx?
mfr=true
Const oNum = 30
Dim iFound As Integer
Dim arrHeaders(oNum) 'max 279 cols
Dim i As Integer
Dim objShell As Object
Dim objFolder As Object
Dim strFileName As Variant
Dim x As Integer
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("F:\DCIM\103_PANA") 'change to
suite
For i = 0 To oNum '279
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Cells(1, i + 1) = arrHeaders(i)
Next

x = 1

For Each strFileName In objFolder.Items
x = x + 1
Cells(x, 1).Select
For i = 0 To oNum '266 best 279
Cells(x, i + 1).Value = objFolder.GetDetailsOf(strFileName, i)
Next
Next

End Sub

Thank you for any help in advance

On 10/22/2010 03:25 AM, Greg wrote:
Hi, I am using scripting to get the time and date off some pictures.
I am having a problem the date/time properties missing the seconds
component. Formation the data as hh:mm:ss does not help.

Using windows 7, excel 2010

Will this work in xl2010?

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

Get Quick Access to File Properties by Using the VBA File Functions

You can quickly obtain file properties such as the created date, the
last modified date, or the number of bytes in a file by using the VBA
FileDateTime and FileLen functions, for example:

Public Sub TestFileProperties()
' Purpose: Demonstrates the use of the VBA FileDateTime
' and FileLen functions.
' Create the following file in your C:\ drive.
Const FILE_PATH As String = "C:\SampleFile.txt"
On Error GoTo TestFileProperties_Err
' List the created/modified date and the number of bytes
' for the file.
MsgBox Prompt:="'" & FILE_PATH & "' was created or last " & _
"modified on " & FileDateTime(pathname:=FILE_PATH) & "."
MsgBox Prompt:="'" & FILE_PATH & "' contains " & _
FileLen(pathname:=FILE_PATH) & " bytes."
TestFileProperties_End:
Exit Sub
TestFileProperties_Err:
Select Case Err.Number
Case 53 ' File not found.
MsgBox Prompt:="Can't find file '" & FILE_PATH & "'. " & _
"Check the file path and try again."
Case Else
MsgBox "Error number: " & Err.Number & vbCrLf & _
"Description: " & Err.Description
End Select
Resume TestFileProperties_End
End Sub

On Oct 22, 10:35Â*pm, MikeS wrote:
On 10/22/2010 03:25 AM, Greg wrote:

Hi, I am using scripting to get the time and date off some pictures.
I am having a problem the date/time properties missing the seconds
component. Â*Formation the data as hh:mm:ss does not help.

Using windows 7, excel 2010

Will this work in xl2010?

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

Get Quick Access to File Properties by Using the VBA File Functions

You can quickly obtain file properties such as the created date, the
last modified date, or the number of bytes in a file by using the VBA
FileDateTime and FileLen functions, for example:

Public Sub TestFileProperties()
Â* Â* Â*' Purpose: Demonstrates the use of the VBA FileDateTime
Â* Â* Â*' and FileLen functions.
Â* Â* Â*' Create the following file in your C:\ drive.
Â* Â* Â*Const FILE_PATH As String = "C:\SampleFile.txt"
Â* Â* Â*On Error GoTo TestFileProperties_Err
Â* Â* Â*' List the created/modified date and the number of bytes
Â* Â* Â*' for the file.
Â* Â* Â*MsgBox Prompt:="'" & FILE_PATH & "' was created or last " & _
Â* Â* Â* Â* Â*"modified on " & FileDateTime(pathname:=FILE_PATH) & "."
Â* Â* Â*MsgBox Prompt:="'" & FILE_PATH & "' contains " & _
Â* Â* Â* Â* Â*FileLen(pathname:=FILE_PATH) & " bytes."
TestFileProperties_End:
Â* Â* Â*Exit Sub
TestFileProperties_Err:
Â* Â* Â*Select Case Err.Number
Â* Â* Â* Â* Â*Case 53 Â* Â* ' File not found.
Â* Â* Â* Â* Â* Â* Â*MsgBox Prompt:="Can't find file '" & FILE_PATH & "'. " & _
Â* Â* Â* Â* Â* Â* Â* Â* Â*"Check the file path and try again."
Â* Â* Â* Â* Â*Case Else
Â* Â* Â* Â* Â* Â* Â*MsgBox "Error number: " & Err.Number & vbCrLf & _
Â* Â* Â* Â* Â* Â* Â* Â* Â*"Description: " & Err.Description
Â* Â* Â*End Select
Â* Â* Â*Resume TestFileProperties_End
End Sub

Hi,

Thank you yes it does work, however, I need to have all three in
hh:mm:ss format.
Date created Date accessed
Date taken
10/11/2010 8:11:xx 22/10/2010 12:00:xx AM
€Ž11/€Ž10/€Ž2010 €�€Ž8:11:xx AM

Unfortunately there is no VB file property for datetaken.