MS Word(2010) Сохранить файл FSO - VBA

Формулировка задачи:

Здравствуйте, пишу макрос у которого в конце выполняется сохранение исходного файла с добавлением к имени (копия) в папку "обработано" в этой же директории. Но что-то пошло не так. Помогите разобраться. P.S. В Path & "" & "обработано" & "" почему-то исчезает \

                    Листинг программы
                
 
                        
                          
                    
Sub SaveAsDoc()
    Dim FSO As Object
    Dim saYt As String
    Set FSO = CreateObject(Class:="Scripting.FileSystemObject")
    saYt = "(копия)"""  'добавление к имени активного файла
    oldName = FSO.GetBaseName(ActiveDocument) 'имя файла
    RaSh = FSO.getextensionname(ActiveDocument) ' расширение файла
    FSO.CopyFile Source:=ActiveDocument.FullName, _
    Destination:=ActiveDocument.Path & "" & "обработано" & "" & oldName _
    & saYt & RaSh, OverWriteFiles:=False
End Sub

Решение задачи: «MS Word(2010) Сохранить файл FSO»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub SaveAsDoc()
    Dim FSO As Object
    Dim saYt As String
    Set FSO = CreateObject(Class:="Scripting.FileSystemObject")
    saYt = "(копия)"  'добавление к имени активного файла  убрал лишнюю "
    oldName = FSO.GetBaseName(ActiveDocument) 'имя файла
    RaSh = FSO.getextensionname(ActiveDocument) ' расширение файла
    ds = ActiveDocument.Path & "СЛЕШ" & "обработано" & "СЛЕШ" & oldName & saYt & "." & RaSh
    FSO.CopyFile Source:=ActiveDocument.FullName, Destination:=ds, OverWriteFiles:=False
    
End Sub