saving to multiple locations/check for existing file/create extension

[lakke2120]

Hello,
I have a code that works well for saving to multiple locations. However, I would like for the code to check for existing files in BOTH locations and if one exist then to save under sme name with different version. i.e testfilev1. Hope I explained that right.

thank you very much
___________________________________________________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("Would you like to back up file?", vbYesNo) = vbYes Then _

Dim newFile As String, fName As String
' Don't use "/" in date, invalid syntax
fName = Sheets("Service Objective").Range("AH1").Value
'Change the date format to whatever you'd like, but make sure it's in quotes
newFile = fName & " " & Format$(Date, "mmmm-yyyy")
' Change directory to suit your PC, including USER NAME
ChDir _
"S:\Active Individual Programs\Manager folder\service objectives\"
ActiveWorkbook.SaveAs Filename:=newFile
ActiveWorkbook.SaveAs "S:\Active Individual Programs\All Individual SAP Programs\1 Master template\2015\Data\" + ActiveWorkbook.Name
End If
End Sub

 

[Gingertrees]

This adds a check digit to a file name if the name would already exist in the target location. :

Dim n as integer
n=0
Do
    newFile = ChDir "S:\Active Individual Programs\Manager folder\service objectives\" & fName _ 
    & " " & Format$(Date, "mmmm-yyyy") & _
    IIf(n=0, "", n) & ".xlsx"
    n = n+1
Loop until Dir(newFile) = ""

ActiveWorkbook.SaveAs Filename:=newFile
'//this next part might not be necessary:
'////ActiveWorkbook.SaveAs "S:\Active Individual Programs\All Individual SAP Programs\1 Master template\2015\Data\" & ActiveWorkbook.Name

 

[lakke2120]

thanks for your help
Tried code and get a "expected: end of statement" error

 

[Gingertrees]

Post your revised code, please. Use code tags.

 

[lakke2120]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("Would you like to back up file?", vbYesNo) = vbYes Then _

Dim n As Integer
n = 0
Do
newFile = ChDir "S:\Active Individual Programs\Manager folder\service objectives\" & fName _
& " " & Format$(Date, "mmmm-yyyy") & _
IIf(n=0, "", n) & ".xlsx"
n = n + 1
Loop Until Dir(newFile) = ""


ActiveWorkbook.SaveAs Filename:=newFile
'//this next part might not be necessary:
'////ActiveWorkbook.SaveAs "S:\Active Individual Programs\All Individual SAP Programs\1 Master template\2015\Data\" & ActiveWorkbook.Name
End If
End Sub