File modify date set by Photo image Exif date.
Code: Select all
Enumeration
#Window_Sync
#ProgressBar_Sync
#Text_Sync
#Statusbar
#FileA
EndEnumeration
Structure FileMate
Filename.s
ModifyDate.s
EndStructure
Global NewList FileAll.FileMate()
Global *imageAdress = AllocateMemory(8192)
Procedure Open_Window_Sync()
If OpenWindow(#Window_Sync, 274, 134, 602, 92, "EXIF SYNC", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
If CreateStatusBar(#Statusbar, WindowID(#Window_Sync))
AddStatusBarField(602)
EndIf
If CreateGadgetList(WindowID(#Window_Sync))
ProgressBarGadget(#ProgressBar_Sync, 0, 30, 600, 30, 0, 10, #PB_ProgressBar_Smooth)
TextGadget(#Text_Sync, 2, 2, 596, 25, "")
EndIf
EndIf
EndProcedure
Procedure.w xchEndianW(e.w)
ProcedureReturn (e & $FF) << 8 + (e >> 8) & $FF
EndProcedure
Procedure xchEndianL(e.l)
ProcedureReturn (e & $FF) << 24 + (e & $FF00) << 8 + (e >> 8) & $FF00 + (e >> 24) & $FF
EndProcedure
Procedure.b GetCameraModel(Filenamepath.s)
StatusBarText(#Statusbar, 0, Filenamepath)
ReadFile(#FileA,Filenamepath)
ReadData(#FileA, *imageAdress, 8192)
CloseFile(#FileA)
Protected OffsetField.l = *imageAdress +3
Protected Header.b, wordOrder.l, tifFormat.l, ifd1.l, nFields.l, currentTag.l, flg.b
Protected fieldType.l, fieldLength.l, fieldValue.l, currentloc.l, cam$
If PeekB(OffsetField) &$FF = $E1
Header = 12
Else
Header = 30
EndIf
OffsetField = *imageAdress + Header
wordOrder = PeekW(OffsetField)
OffsetField + 2
If wordOrder = $4949 Or wordOrder = $4D4D
If wordOrder = $4949
tifFormat = PeekW(OffsetField)
Else
tifFormat = xchEndianW(PeekW(OffsetField))
EndIf
OffsetField + 2
If tifFormat = $2A
If wordOrder = $4949
ifd1 = PeekL(OffsetField)
Else
ifd1 = xchEndianL(PeekL(OffsetField) )
EndIf
OffsetField + 4
OffsetField = *imageAdress + ifd1 + Header
If wordOrder = $4949
nFields = PeekW(OffsetField)
Else
nFields = xchEndianW(PeekW(OffsetField))
EndIf
OffsetField + 2
For i = 1 To nFields
If wordOrder = $4949
currentTag = PeekW(OffsetField)
Else
currentTag = xchEndianW(PeekW(OffsetField))
EndIf
OffsetField + 2
flg=#True
Select currentTag
Case 306
cam$ = "ModifyDate: "
Default
flg=#False
EndSelect
If flg=#True
If wordOrder = $4949
fieldType = PeekW(OffsetField)
Else
fieldType = xchEndianW(PeekW(OffsetField))
EndIf
OffsetField + 2
fieldLength = PeekL(OffsetField)
OffsetField + 4
If fieldLength <= 4
currentloc = OffsetField
; AddGadgetItem(#ListView, -1, PeekS(OffsetField,0, #PB_Ascii))
OffsetField + 4
Else
currentloc = OffsetField
If wordOrder = $4949
fieldValue = PeekL(OffsetField)
Else
fieldValue = xchEndianL(PeekL(OffsetField))
EndIf
OffsetField = *imageAdress + fieldValue + Header
Select cam$
Case "ModifyDate: "
FileAll()\ModifyDate = PeekS(OffsetField, 255, #PB_Ascii)
ProcedureReturn #True
EndSelect
OffsetField = currentloc + 4
EndIf
Else
OffsetField +10
EndIf
Next
EndIf
EndIf
If FileAll()\ModifyDate=""
SetGadgetAttribute(#ProgressBar_Sync, #PB_ProgressBar_Maximum, ListSize(FileAll())-1)
DeleteElement(FileAll())
ProcedureReturn #False
EndIf
EndProcedure
Procedure AnalyzeHDD_Photo(Path.s, Filename.s)
Protected i.l,pFlg.l
StatusBarText(#Statusbar, 0, Path)
Protected dir.l = ExamineDirectory(#PB_Any, Path, "*.*")
Protected File.s
While NextDirectoryEntry(dir)
Select DirectoryEntryType(dir)
Case #PB_DirectoryEntry_Directory
If Len(DirectoryEntryName(dir))>2
AnalyzeHDD_Photo(Path+DirectoryEntryName(dir)+"\",Filename)
EndIf
Case #PB_DirectoryEntry_File
File.s = DirectoryEntryName(dir)
If UCase(Right(File,4))=".JPG" And Left(File,1)<>"."
AddElement(FileAll())
FileAll()\Filename = Path+File
EndIf
EndSelect
Wend
FinishDirectory(dir)
EndProcedure
Procedure Main()
Protected filepath.s, PhotoDate.ｌ
Open_Window_Sync()
filepath = PathRequester("EXIF SYNC", "")
If Len(filepath)>2
SetGadgetText(#Text_Sync, "Searching photos include exif")
While WindowEvent() : Wend
AnalyzeHDD_Photo(filepath, "")
SetGadgetAttribute(#ProgressBar_Sync, #PB_ProgressBar_Maximum, ListSize(FileAll()))
ForEach FileAll()
If GetCameraModel(FileAll()\Filename)
PhotoDate = ParseDate("%yyyy.%mm.%dd %hh:%ii:%ss", FileAll()\ModifyDate)
SetFileDate(FileAll()\Filename, #PB_Date_Created, PhotoDate)
SetFileDate(FileAll()\Filename, #PB_Date_Accessed, PhotoDate)
SetFileDate(FileAll()\Filename, #PB_Date_Modified, PhotoDate)
SetGadgetState(#ProgressBar_Sync, ListIndex(FileAll())+1)
SetGadgetText(#Text_Sync, "Current "+Str(ListIndex(FileAll())+1)+ " / Total "+Str(ListSize(FileAll())))
StatusBarText(#Statusbar, 0, FileAll()\Filename)
While WindowEvent() = #PB_Event_CloseWindow :Delay(1): Wend
EndIf
Next
SetGadgetText(#Text_Sync, "Current "+Str(ListIndex(FileAll())+1)+ " / Total "+Str(ListSize(FileAll())))
MessageRequester("EXIF SYNC", "Finish", #MB_OK|#MB_ICONINFORMATION)
Else
MessageRequester("EXIF SYNC", "Don't search photos!", #MB_OK|#MB_ICONERROR)
EndIf
EndProcedure
Main()
FreeMemory(*imageAdress)
End
