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]

К сожалению не помогло, осталась таже проблема
http://www.flasher.ru/forum/attachment.php?attachmentid=19260&stc=1&d=1207721311

[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]

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