Kopiere filer VBA

Jeg har en macro i excel som skal kopiere en fil fra en folder, hvis den findes, over i en anden folder.

Men i folderen kan der godt ligge flere filer hvor det kun er versions nummerene der er forskellige se nedenfor.

Jeg kørere en liste i et regneark og kører en løkke via et regneark

Hvordan kopierer jeg filen så de kun er den med det nyeste/ højeste versions nummer der bliver kopieret.

Den rutine jeg har brugt, vist herunder flytter alle versionerne på en gang

Dir_2 indeholder  ' det er disse der bliver til til fil_navn fil_nav er altid kun de første 4 tegn. 

1234_v1.pdf
1234_v2.pdf
1234_v3.pdf
2222_v1.pdf
2222_v2.pdf


for a = 1 to 5000


If Dir(Dir_2 & fil_navn & "*.*") <> "" Then ' filen findes

                FSO.CopyFile Dir_2 & fil_navn & "*", Dir_1
                             
            Else
       
                        Range(kol_3 & a).Value = "-" '" ingen"
                       
            End If

Next a


Kan det gøres og hvordan?

/fajens