Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
'loop trough all (root) items in the camera device For Each itm In d.Items Dim f As Properties Set f = itm.Properties Dim str As String lCounter = lCounter + 1 DoEvents strHold = "" Name = d.Items(lCounter).Properties("Item Name").Value Ext = d.Items(lCounter).Properties("Filename extension").Value Set v = d.Items(lCounter).Properties("Item Time Stamp").Value PhotoDate = Format(v.Date, "mm/dd/yyyy") 'Debug.Print "Photo Number " & Format(i, "##0") & " Name: " & Name & "." & Ext & " Date taken: " & PhotoDate If IsBetween(PhotoDate, dtDateFrom, dtDateTo) Then 'download the file to a temp buffer Set imgpic = itm.Transfer 'store the file name and extension and app.path in a string, 'so you can use it to perform more operations on it str = App.Path & "\downloaded images\" & Name & "." & Ext imgpic.SaveFile str End If Next
Join the community of 500,000 technology professionals and ask your questions.