Thanks, It's a pain posting code on this computer but I'll try. Essentially it's these few lines, everything before this is just string manipulation
Code:
newLoc = Replace(currentPath, findstring, replacestring, , , vbTextCompare)
'Move the folder - In the real code there are checks before this to check the original folder exists and the new one doesn't already exist
fso.MoveFolder Source:=FromPath, Destination:=ToPath
' Update the hyperlink stored in the database
' The Move_Rename_Folder command strips off the trailing "\", put it back on.
If Right(newLoc, 1) "\" Then newLoc = newLoc & "\"
Me.ACS_Dir = newLoc
End If
'Save the record
If Me.Dirty Then Me.Dirty = False
Our IM security settings won't let me upload the database, Christ, they don't even let me format text! But thanks for the offer.