Help with updateing Hyperlinks

[caj]

Below is my code. I am trying to save files from one directory to another
directory and update the hyperlinks in the form. The saving part works. But
it only updates the first link in the form. How do I get it to update all the
hyperlinks for each file.


Private Sub SaveDBFiles_Click()

Dim strSQL As String
Dim strCurrFile As String
Dim strCurrFolder As String
Dim strNewFolder As String

strCurrFolder = "C:\Post\STAGING\"
strNewFolder = "C:\Post\ARCHIVE\"
strCurrFile = Dir(strCurrFolder & "*.*")

Do While Len(strCurrFile) > 0

Name strCurrFolder & strCurrFile As strNewFolder & strCurrFile
strCurrFile = Dir()
Me.PathFileName = strNewFolder

Loop


End Sub