Zinc ошибка VBScript

[Agent007]

Здравствуйте, подскажите плиз почему выдает ошибку "800A01C2". Непонимаю, вродебы все правильно сделал.

vbCode = 'Sub Indesig()\r';
   vbCode += 'Set myInDesign = CreateObject("InDesign.Application.CS3")\r';
   vbCode += 'Set myDocument = myInDesign.activeDocument\r';
   vbCode += 'myDocument.ImportXML "c:\Sasha\Flash\Zinc\01\BASA\New\temp.xml"\r';
   vbCode += 'myInDesign.ActiveDocument.Save\r';
   vbCode += 'myInDesign.ActiveDocument.Close\r';
   vbCode += 'End Sub\r';
   mdm.System.VBScript.execute(vbCode, 'Indesig', "", "", "", "", "");

[etc]

Ошибка скорее всего в пути, слешей должно быть по две штуки.

[Agent007]

К сожалению не помогло, осталась таже проблема

[alexcon314]

проверьте работоспособность вашего vb-скрипта.

'сохраните скрипт в файл script.vbs и попробуйте выполнить
   Sub Indesig()
   Set myInDesign = CreateObject("InDesign.Application.CS3")
   Set myDocument = myInDesign.activeDocument
   myDocument.ImportXML "c:\Sasha\Flash\Zinc\01\BASA\New\temp.xml"
   myInDesign.ActiveDocument.Save
   myInDesign.ActiveDocument.Close
   End Sub
   Indesig()

[Agent007]

Все прекрасно работает, делал на выполнение скрипт

mdm.System.exec ("Proba_1.vbs")

тоже все хорошо.
Но при вставке через mdm.System.VBScript выдает ошибку.

[Agent007]

Разобрался, все гораздо проще было

vbCode = 'Sub Indesig(a, b, c, d, e)\n';
    vbCode += 'Set myInDesign = CreateObject("InDesign.Application.CS3")\n';
    vbCode += 'Set myDocument = myInDesign.activeDocument\n';
    vbCode += 'myDocument.ImportXML "c:\\Sasha\\Flash\\Zinc\\01\\BASA\\New\\temp.xml"\n';
    //vbCode += 'myInDesign.ActiveDocument.Save\n';
    //vbCode += 'myInDesign.ActiveDocument.Close\n';
    vbCode += 'End Sub\n';
mdm.System.VBScript.execute(vbCode, 'Indesig', "", "", "", "", "");

теперь остался другой вопрос, можно ли передать переменную в VB, тоесть есть переменная

var myFilefil = mdm.Application.path + "File\\" +my_win.content.p_3.text+".indd"

где my_win - компонент Windows
p_3 - поле input
В итоге получаеться путь до файла
Делал так:

vbCode = 'Sub Indesig(a, b, c, d, e)\n';
    vbCode += 'Set myInDesign = CreateObject("InDesign.Application.CS3")\n';
	vbCode += 'myInDesign.Open("myFilefil")\n';
    vbCode += 'Set myDocument = myInDesign.activeDocument\n';
    vbCode += 'myDocument.ImportXML "c:\\Sasha\\Flash\\Zinc\\01\\BASA\\New\\temp.xml"\n';
    //vbCode += 'myInDesign.ActiveDocument.Save\n';
    //vbCode += 'myInDesign.ActiveDocument.Close\n';
    vbCode += 'End Sub\n';
mdm.System.VBScript.execute(vbCode, 'Indesig', "", "", "", "", "");

ругаеться, подскажите плиз как правильно передать переменную

[Agent007]

Все сам разобрался. Спасибо!))