Вот код:

Ругается, если пытаюсь добавить парамеры. Как быть?


//Источник вдохновения: http://www.askit.ru/custom/progr_admin/m10/10_shortcuts.htm

//Получаем каталог базы
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();//File="C:\1cv8\Base".
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "File=", "");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", "");
СтрокаСоединения = СокрЛП(СтрокаСоединения);
Если Лев(СтрокаСоединения, 1) = """" Тогда
   СтрокаСоединения = Сред(СтрокаСоединения, 2);
КонецЕсли;
Если Прав(СтрокаСоединения, 1) = """" Тогда
   СтрокаСоединения = Сред(СтрокаСоединения, 1, СтрДлина(СтрокаСоединения) - 1);
КонецЕсли;


oShell = Новый ComObject ("WScript.Shell");
ПапкаМоиДокументы = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\personal");
Сообщить(ПапкаМоиДокументы);
ПапкаДесктоп = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\desktop");
Сообщить(ПапкаДесктоп);
Команда = """" + ПапкаМоиДокументы + "\Check1CD.exe"" 1 """ + СтрокаСоединения + """";
Команда = """" + ПапкаМоиДокументы + "\Check1CD.exe""" ;
//Команда = ПапкаМоиДокументы ;
Сообщить(Команда);
oShortCut = oShell.CreateShortcut(ПапкаДесктоп + "\Проверить базу данных 1С на ошибки.lnk");
oShortCut.TargetPath = Команда;
oShortCut.Save();

{(31)}: Ошибка при установке значения атрибута контекста (TargetPath): Произошла исключительная ситуация (0x80070057)
oShortCut.TargetPath = Команда;
по причине:
Произошла исключительная ситуация (0x80070057)

текст команды

(2) под катом текст. или что ты спрашиваешь?
текст выглядит так:

"C:\Users\s.osipov\Documents\Check1CD.exe" 1 "m:\fixin\PIM-1S"

от лукавого, досвидос

спросил на SQL: http://www.sql.ru/forum/actualthread.aspx?tid=992389&pg=-1

(3) дык сделай, чтоб было так:

"C:\Users\s.osipov\Documents\Check1CD.exe 1 m:\fixin\PIM-1S"

токма вот, 1 - это че ?

(6) На сиквиле подсказалии:

//Источник вдохновения: http://www.askit.ru/custom/progr_admin/m10/10_shortcuts.htm

//Получаем каталог базы
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();//File="C:\1cv8\Base".
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "File=", "");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", "");
СтрокаСоединения = СокрЛП(СтрокаСоединения);
Если Лев(СтрокаСоединения, 1) = """" Тогда
   СтрокаСоединения = Сред(СтрокаСоединения, 2);
КонецЕсли;
Если Прав(СтрокаСоединения, 1) = """" Тогда
   СтрокаСоединения = Сред(СтрокаСоединения, 1, СтрДлина(СтрокаСоединения) - 1);
КонецЕсли;


oShell = Новый ComObject ("WScript.Shell");

ПапкаМоиДокументы = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\personal");
ПапкаДесктоп = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\desktop");
Команда = """" + ПапкаМоиДокументы + "\Check1CD.exe""";
Аргументы = " 1 """ + СтрокаСоединения + """";

//Для отладки
Сообщить(ПапкаМоиДокументы);
Сообщить(ПапкаДесктоп);
Сообщить(Команда);

//Извлекаем сохраненный в базе EXE-файл и копируем его в мои документы
ДвДанФайла = Справочники.СапКонстанты.НайтиПоКоду("Check1CD").ЗначениеХранилище.Получить();
ДвДанФайла.Записать(ПапкаМоиДокументы + "\Check1CD.exe");
//Команда = """" + ПапкаМоиДокументы + "\Check1CD.exe""";
//Создаем ярлык на рабочий стол
oShortCut = oShell.CreateShortcut(ПапкаДесктоп + "\Проверить базу данных 1С на ошибки.lnk");
oShortCut.TargetPath = Команда;
oShortCut.Arguments = Аргументы;
oShortCut.Save();