I have a folder on a Windows 2003 R2 PC, which syncs with my phone; the phone takes pictures in jpg format and places them in the folder, and an app on my phone syncs whatever is there. I have cobbled together a script which executes as a scheduled task; the script reads the date taken property and sorts\/renames my photos, and from here I can move them to a NAS and back them up for safekeeping. The date created property on the PC is relative to the time the file was synchronized, and not the time the picture was taken on the phone. I would like to have my script write to the date created (and date modified, just to keep things neat) the same info as is stored in date taken.<\/p>\n
In my script, I have tried using:
\nobjRecordSet.Fields.Item(“System.DateCreated”) = objRecordset(“System.Photo.DateTaken”)
\nThe script laughs at me, saying “800A0CB3, Current recordset does not support updating. This may be a limitation of the provider, or the selected locktype.”<\/p>\n
Admittedly, much of the script I’m using has been copied, and I don’t have the strongest grasp on the full capabilities of “objRecordSet.Open”, so I assume I may need to do something different to be able to write to these properties? (So far my attempts at Googling haven’t led me to a good guide on this either…)<\/p>\n
‘=== My Script ===’
\nOption Explicit
\nDim objFSO, objConnection, objRecordSet, objFolder
\nDim OS, timeZone
\nDim FilePath, FileNameAndExtension, FileName, FileExtension
\nDim strYear, strMonth, strDay, strHour, strMinute, strSec
\nDim OldFileAndPath, NewFileAndPath, SubDirectory
\nDim SplitFileNameAndExtension, SplitFolderPath, dtmPhotoDate<\/p>\n
‘Create the File System Object
\nSet objFSO = CreateObject(“Scripting.FileSystemObject”)
\nSet objConnection = CreateObject(“ADODB.Connection”)
\nSet objRecordSet = CreateObject(“ADODB.Recordset”)
\nFor Each OS In GetObject(“winmgmts:Win32_OperatingSystem”).Instances_
\ntimeZone = OS.CurrentTimeZone
\nNext ‘os<\/p>\n
objConnection.Open “Provider=Search.CollatorDSO;Extended Properties=’Application=Windows’;”
\nobjRecordSet.Open “SELECT System.ItemPathDisplay, System.DateCreated, System.ItemNameDisplay, System.DateModified, System.ItemFolderPathDisplay, System.Photo.DateTaken FROM SYSTEMINDEX Where System.ItemFolderPathDisplay = ‘C:\\Documents and Settings\\Administrator\\My Documents\\Dropbox\\DCIM\\100MEDIA'”, objConnection<\/p>\n
‘Start at the Beginning of the RecordSet
\nobjRecordSet.MoveFirst<\/p>\n
Do Until objRecordSet.EOF
\nOldFileAndPath = objRecordset.Fields.Item(“System.ItemPathDisplay”)
\nFilePath = objRecordset.Fields.Item(“System.ItemFolderPathDisplay”)
\nFileNameAndExtension = objRecordset.Fields.Item(“System.ItemNameDisplay”)
\nSplitFileNameAndExtension = Split(FileNameAndExtension, “.”) ‘Separate file name from extension
\nIf UBound(SplitFileNameAndExtension) > 0 Then ‘Check for extension
\nSplitFolderPath = Split(FilePath, “\\”)’ Separate file path into folder list array
\nFileName = SplitFileNameAndExtension(0)
\nFileExtension = SplitFileNameAndExtension(1)<\/p>\n
‘Extract “Date Taken” info:
\ndtmPhotoDate = DateAdd(“n”, timeZone, objRecordset(“System.Photo.DateTaken”))
\nstrDay = Day(dtmPhotoDate)
\nstrMonth = Month(dtmPhotoDate)
\nstrYear = Year(dtmPhotoDate)
\nstrHour = Hour(dtmPhotoDate)
\nstrMinute = Minute(dtmPhotoDate)
\nstrSec = Second(dtmPhotoDate)<\/p>\n
‘Update Formatting to two characters if necessary:
\nIf Len(strDay) = 1 Then strDay = “0” & strDay
\nIf Len(strMonth) = 1 Then strMonth = “0” & strMonth
\nIf Len(strHour) = 1 Then strHour = “0” & strHour
\nIf Len(strMinute) = 1 Then strMinute = “0” & strMinute
\nIf Len(strSec) = 1 Then strSec = “0” & strSec<\/p>\n
SubDirectory = FilePath & “\\” & strYear & “-” & strMonth & “-” & strDay
\nNewFileAndPath = SubDirectory & “\\” & strHour & “h” & strMinute & “m” & strSec & “s” & “.” & FileExtension<\/p>\n
If strYear <> “” Then
\n‘objRecordSet.Fields.Item(“System.DateCreated”) = objRecordset(“System.Photo.DateTaken”)
\n‘objRecordSet.Fields.Item(“System.DateModified”) = objRecordset(“System.Photo.DateTaken”)
\nIf objFSO.FolderExists(SubDirectory) Then
\nSet objFolder = objFSO.GetFolder(SubDirectory)
\nElse
\nSet objFolder = objFSO.CreateFolder(SubDirectory)
\nEnd If
\n‘WScript.Echo “Copy from ” & OldFileAndPath & ” to ” & NewFileAndPath
\nobjFSO.MoveFile OldFileAndPath, NewFileAndPath
\nEnd If
\nEnd If
\n‘Next file in the RecordSet:
\nobjRecordset.MoveNext
\nLoop<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"inline_featured_image":false,"iawp_total_views":3},"question-category":[55],"question_tags":[],"class_list":["post-13455","question","type-question","status-publish","hentry","question-category-programming"],"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question\/13455","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question"}],"about":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/types\/question"}],"author":[{"embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/comments?post=13455"}],"wp:attachment":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/media?parent=13455"}],"wp:term":[{"taxonomy":"question-category","embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question-category?post=13455"},{"taxonomy":"question_tags","embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question_tags?post=13455"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}