[AccessD] Access files by date

Tina Norris Fields tinanfields at torchlake.com
Tue Aug 1 09:30:36 CDT 2017


Thank you, Rocky. I would appreciate that.

T

Tina Norris Fields
tinanfields-at-torchlake-dot-com
231-322-2787

On 08/01/17 9:24 AM, Rocky Smolin wrote:
> Hahahahahaha....(sorry)  it's a mess because it was a one-off for my own use
> - no one was ever supposed to see it :) And once I got it working there was
> no point in fooling with it.  No comments.  Lots of lines of code commented
> out as it evolved.  Let me send it to you and you can call or write if
> you've got questions.
>
>
> Rocky Smolin
> Beach Access Software
> 760-683-5777
> www.bchacc.com
> www.e-z-mrp.com
> Skype: rocky.smolin
>   
>
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Tina Norris Fields
> Sent: Tuesday, August 01, 2017 5:38 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access files by date
>
> I'd sure like to see the finished product.
>
> T
>
> Tina Norris Fields
> tinanfields-at-torchlake-dot-com
> 231-322-2787
>
> On 07/31/17 11:45 PM, Rocky Smolin wrote:
>> Bob:
>>
>> Are you still interested in the sort-photos-by-date-and-rename
>> program?  I can send it to you with or without the phone consult.  Not
>> the version that I first posted but the one that really works off the
>> photo taken date in the jpg header.
>>
>> Best,
>>
>> R
>>
>>
>> -----Original Message-----
>> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf
>> Of Bob Heygood
>> Sent: Thursday, July 27, 2017 7:42 AM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] Access files by date
>>
>> Great solution.
>> I have a need that this will work for as well.
>>
>> Thx
>> Bob Heygood
>>
>>
>> -----Original Message-----
>> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf
>> Of Stuart McLachlan
>> Sent: Monday, July 24, 2017 1:10 AM
>> To: Access Developers discussion and problem solving
>> Cc: 'Off Topic'
>> Subject: Re: [AccessD] Access files by date
>>
>> I'd create a table to store all the filenames and dates with whatever
>> other fields you need for new filenames, comments or whatever.  Then a
>> simple
>> function:
>>
>> Function GetPhotos() As Long
>> Dim strFName As String
>> Dim fdate As Date
>> Dim rs As DAO.Recordset
>> Dim lngCount As Long
>> Set rs = CurrentDb.OpenRecordset("tblPhotos")
>> strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > ""
>>        rs.AddNew
>>        rs!FileName = strFilename
>>        rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" &
>> strFilename)
>>        rs.Update
>>        lngCount = lngCount + 1
>>       strFilename = Dir$
>> Wend
>> rs.Close
>> Set re = Nothing
>> GetPhotos = lngCount
>> End Function
>>
>> Once you have then in the table you can do anything you want with the
>> data, manually or with VBA.
>>
>> On 23 Jul 2017 at 21:36, Rocky Smolin wrote:
>>
>>> Dear List:
>>>
>>>
>>>
>>> Having just returned from a 5 day 250 mile bike trek through the
>>> redwoods of northern California with a group of 0 guys, I have
>>> volunteered to assemble everyone's pictures and edit them down to a
>>> director's cut.
>>>
>>>
>>>
>>> What I have done after editing all their photos (and discarding many)
>>> is put everyone's pictures in one folder which I can then display by
>>> date.  Since everyone (hopefully) has a correct date time stamp, the
>>> pictures of like places and times are now grouped together.
>>>
>>>
>>>
>>> So now I would like to loop through these picture in date sequence,
>>> and rename them RR00010, RR00020, RR0030, etc.  so I can then do a
>>> bit of rearranging by changing file names. Once that's done I can do
>>> a final cull of the pictures and, if I need to manually insert any in
>>> a different place I can do it - like RR00025 would go between RR00020
>>> and RR00030.
>>>
>>>
>>>
>>> I'm having a little though, trouble extracting this solution from the
>>> web. Can someone point me in the right direction?  Can this all be
>>> done with FSO? My first attempt retrieved the pics in file name
>>> order, not date/time order. And don't see a way using the Dir command
>>> to do that.
>>>
>>>
>>>
>>> MTIA
>>>
>>>
>>>
>>>
>>>
>>> Rocky Smolin
>>>
>>> Beach Access Software
>>>
>>> 760-683-5777
>>>
>>>    <http://www.bchacc.com> www.bchacc.com
>>>
>>>    <http://www.e-z-mrp.com> www.e-z-mrp.com
>>>
>>> Skype: rocky.smolin
>>>
>>>
>>>
>>>
>>>
>>> --
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



More information about the AccessD mailing list