How to reverse string order in file naming macro?

[MutantWizard]

I have the following working well for saving files and making version backup copies in two different locations. for sorting purposes I would though like to change the order of the file name strings. File name first, date and time stamp second. Have not succeeded yet. Appreciate if anybody can advise how to do this.

Sub SaveToLocations()
    Dim datim As String
    datim = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")

    ActiveWorkbook.SaveCopyAs "I:\FBackupCS\" & datim & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "E:\CS Docs\FBackupCS\" & datim & ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

 

[Yongle]

try

Sub SaveToLocations()
    Dim datim As String, fName As String
    datim = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")
    fName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & " "
    fName = fName & datim
    MsgBox fName
    With ActiveWorkbook
        .SaveCopyAs "I:\FBackupCS\" & fName
        .SaveCopyAs "E:\CS Docs\FBackupCS\" & fName
        .Save
    End With
End Sub

Delete message box after testing

 

[MutantWizard]

Thanks @Yongle, managed to make it work as per your code.