Выгрузка документов

Sub TMG(TCSActiveModule, TCSExecutionParams)      
'тестовый макрос альтернативной ВЫГРУЗКИ

LogObject.ScriptTimeOut = 0   

CurEvent = TCSExecutionParams.DocExecutionParams.CurrentEvent     'Текущее событие

Select Case CurEvent                                                 'Работа макроса по этапам
    Case CSDN_Const.dceBeforeUnload                                             'Этап до выгрузки
                TCSExecutionParams.DocExecutionParams.StepFlags = CSDN_Const.deSkipAllUnloadSteps 'Пропуск стандартной выгрузки и работы макроса после выгрузки             
                        
'  Определение временной папки (папки выгрузки) типа   C:\unload_docs\V19668\                      
                FileNamePath = TCSExecutionParams.DocExecutionParams.ActiveFileNamePath
                k=len(FileNamePath)-1
                Do While k>0 
                    If mid(FileNamePath,k,1)="\" Then
                    fp2=mid(FileNamePath,1,k)
                    k=0
                    Else
                    k=k-1  
                    End If
                Loop

                
'  Сохранение документа
                   Set fso = CreateObject("Scripting.FileSystemObject")
                   On Error Resume Next
                   Set fldr = fso.GetFolder(fp2)
                       If Err Then
                       Set fldr = fso.CreateFolder(fp2)
                       End If
                   On Error goto 0 
                   
                Call TCSActiveModule.SaveAs (fp2,0)     
                
'Открытие документа
                  Set Shell = CreateObject("Shell.Application")
                  Call Shell.ShellExecute(FileNamePath)                                               
                         If Err Then
                            TCSExecutionParams.ReturnCode = 1
                            TCSExecutionParams.ReturnMessage = "Не могу выполнить команду над выгруженным документом " + QuotedString(FileNamePath) +  ": " +  Err.Description + "#" + Err.Source
                            Err.Clear
                         Else
                           TCSExecutionParams.ReturnCode = 0
                           TCSExecutionParams.ReturnMessage = "Работа закончена!"   
                         End If 


        
    Case Else  
    Call TCSApp.ShowMessageBox("Ошибка", "Ни один шаг макроса по выгрузке и обновлению не отработал!")
        TCSExecutionParams.ReturnCode = 0      
        
 End Select   

End Sub