MutantWizard
New Member
- Joined
- Mar 30, 2019
- Messages
- 2
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.
Code:
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