Sub GetExifDateTime (Fpath As String, Fname As String) As Long
Dim temp As String
Dim ExifDate As Long
Dim exif As ExifData
exif.Initialize(Fpath, Fname)
temp = exif.getAttribute(exif.TAG_DATETIME)
DateTime.DateFormat = "yyyy:MM:dd HH:mm:ss"
ExifDate = DateTime.DateParse(temp)
Return ExifDate
End Sub
'In starter Service:
Sub Service_Create
Dim jo As JavaObject
jo.InitializeStatic("java.util.Locale").RunMethod("setDefault", Array(jo.GetField("US")))
End Sub