Thanks jges, that was really helpful, we tweaked it a bit but the fundamentals are all yours.
Final code is:
'find latest version of file, <fileName>_<rev.minor>.<file_extension>
Dim strPath
Dim FSO
Dim FLD
Dim file
Dim strNewName
Dim fileDic
Set fileDic =...