[AccessD] [dba-OT] Access files by date

[Stuart McLachlan]

Forgot to mention.  When you have done all the name manipulation, you can step through 
the table again in VBA and update the files with: Name FileName As NewName

On 24 Jul 2017 at 18:09, Stuart McLachlan wrote:

> 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
> > 
> 
> 
>