[AccessD] Access files by date

[Rocky Smolin]

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