Speed up Camera Photo Time Stamp

[Shane]

I'm writing a program for renaming my picture files, and I want to use
the picture time stamp as a prefix to the file names. I can get the
time stamp, but it is extraordinarily slow! I have about 250 pictures
in the directory. In debug mode, I can populate the names in a
listview in less than two seconds. If I add a column with the time
stamp as a string, the listview takes about 70 seconds to populate in
debug mode. I haven't made and test a release mode yet.

Does anybody know a faster way to get the time stamp information?

'---------- Extract the picture date from the picture ----------
' Return an empty string if the file does not exist or no date tag
' Returns date string in YYYY:MM:DD HH:MM:SS
Private Function GetRawDate(ByVa l FileName As String) As String
Dim l_RawDate As String = ""
If File.Exists(Fil eName) Then
Try
Dim img As Image = Image.FromFile( FileName)
Dim i As PropertyItem
For Each i In img.PropertyIte ms
If (i.Id = &H9003 Or i.Id = &H9004) And i.Type = 2
Then
l_RawDate =
System.Text.Enc oding.Default.G etString(i.Valu e, 0, i.Value.Length - 1)
Exit For
End If
Next
Catch ex As Exception
End Try
End If
Return l_RawDate
End Function

'---------- Get the date only in YY-MM-DD format ----------
' FullDate is in YYYY:MM:DD HH:MM:SS format
' Returns date string in YY-MM-DD format
Private Function GetPictureYYMMD D(ByVal FullDate As String) As
String
Dim l_YYMMDD As String = ""
If FullDate.Length >= 10 Then
l_YYMMDD = FullDate.Substr ing(2, 2) + "-" + _
FullDate.Substr ing(5, 2) + "-" + _
FullDate.Substr ing(8, 2)
End If
Return l_YYMMDD
End Function

'---------- Populate the listview ----------
Private Sub Populate()
Dim l_Directory As String = txtDirectory.Te xt

lvw.BeginUpdate ()
lvw.Clear()
lblSelected.Tex t = "0 Selected"
If My.Computer.Fil eSystem.Directo ryExists(l_Dire ctory) = False
Then
MsgBox("Directo ry name is invalid.",
MsgBoxStyle.Exc lamation)
Else
Dim l_File As String
Dim l_Item As ListViewItem
Dim l_FileInfo As System.IO.FileI nfo
Dim s As String = ""

lvw.Columns.Add ("File Name")
lvw.Columns.Add ("Picture Taken")
lvw.Columns.Add ("Last Edited Date")
lvw.Columns.Add ("Preview")
Try
For Each l_File In
My.Computer.Fil eSystem.GetFile s(l_Directory)
l_Item = New ListViewItem(l_ File)
l_FileInfo = New System.IO.FileI nfo(l_File)
s = GetRawDate(l_Fi le)
s = GetPictureYYMMD D(s)
l_Item.SubItems .Add(s)
lvw.Items.Add(l _Item)
Next
Catch ex As Exception
End Try
End If
lvw.EndUpdate()
End Sub

[=?ISO-8859-1?Q?G=F6ran_Andersson?=]

Shane wrote:

I'm writing a program for renaming my picture files, and I want to use
the picture time stamp as a prefix to the file names. I can get the
time stamp, but it is extraordinarily slow! I have about 250 pictures
in the directory. In debug mode, I can populate the names in a
listview in less than two seconds. If I add a column with the time
stamp as a string, the listview takes about 70 seconds to populate in
debug mode. I haven't made and test a release mode yet.

Does anybody know a faster way to get the time stamp information?

You are reading the entire image, which includes reading the entire file
and decompressing the image into a bitmap.

You can read the metadata directly from the file instead. That of course
means that you have to read up on the format of the file to find out how
to get to the interresting parts.

Alternatively you might find someone else who has already written code
for that.

--
Göran Andersson
_____
http://www.guffa.com

[Shane]

Ok, yeah, that's pretty obvious that the image variable was the
slowing down area.

I could use a background task to update the dates in my list, but I'd
rather not.

Does anybody have faster code?

Shane