Renaming Files using data from a table or query

[enzokevin]

I need help with a code to rename photos (Access 2010). The new name (full path) is listed on a table (although I would love to accomplish the task from the list query that I later used to generate the table). There is one field in the table (or query) called OldPath and one field called NewPath. The table name is RenPaths. Both paths are located in the same drive. I want to rename the file in a new folder. I created the new folder which is contained in the NewPath.
I was trying to accomplish this using the Name function
Name OldPath as NewPath

Here is the full code:

Private Sub Command0_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim OldPath As String
Dim NewPath As String
OldPath = "Select OldPath From RenPaths"
NewPath = "Select NewPath From RenPaths"
Set db = CurrentDb
Set rs = db.OpenRecordset(OldPath)
With rs
Do While Not rs.EOF
Name OldPath As NewPath
.MoveNext
Loop
End With
rs.Close
Set rs = Nothing
End Sub

Im getting an error: Run time error '53': File not found
I checked the OldPath and everything is correct so if the code is working correctly it should have found the file. Help identifying the problem is appreciated.

[ranman256]

Be sure you use the ENTIRE path on BOTH , \\folder1\folder\file.xl
if network, dont use drive letter paths, us the full UNC path : \\server1\folder1\folder2\file.xls

(yes drive letters work, but not for all)

[orange]

This may help with renaming files/folders.

[enzokevin]

Yes, I am using the entire path. For example
Old Path is - C:\Users\kcrespo\Documents\Fulcrum to MACP\Fulcrum_Export_a97dee97-ba92-455e-9d5c-3b35617ad357\SAA Inspection Form\367e14e0-439b-4a50-99e1-9154bcc9e3f7.jpg
New Path is - C:\Users\kcrespo\Documents\Fulcrum to MACP\Fulcrum_Export_a97dee97-ba92-455e-9d5c-3b35617ad357\SAA Inspection Form\images\wwMH51856_A3f7.jpg
so I don't think that is the problem

[enzokevin]

Orange:
I did some research on the matter before I posted the question and I did reached the link you gave me. But what I could not understand in the code is how is the value (old path and new path, in this case strSource and strTarged) assigned to the variables. In other word I don't know how to adjust the code to my need (how to pull the values from my table into the code).
I forgot to mention I'm not a programmer.

[enzokevin]

I finally figure out to accomplish what I needed. Here is how the final code looks like in case someone needs it.

Private Sub Command0_Click()
Dim rsFolders As DAO.Recordset
  
  Set rsFolders = CurrentDb.OpenRecordset("SELECT DISTINCT [OldPath], [NewPath] FROM RenPaths")
  Do While Not rsFolders.EOF
                       ' Check that Old Path exists.
    If Len(Dir(rsFolders![OldPath], vbDirectory)) > 0 Then
                        ' Check that New Path doesn't exist.
      If Len(Dir(rsFolders![NewPath], vbDirectory)) = 0 Then
        Name rsFolders![OldPath] As rsFolders![NewPath]
      End If
    End If
    rsFolders.MoveNext
  Loop
  rsFolders.Close
  Set rsFolders = Nothing
End Sub

[joelgood]

well, i am a regular coder, but this code is new to me.. i will try it...
online casinos

[enzokevin]

One thing about this code. I will actually MOVE and rename the file. If you want to also keep the original files. Make a backup copy before running the code.