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.