Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 01:14

Ярлык для открытия базы

Автор 1СNachalo, 28 авг 2018, 10:23

0 Пользователей и 1 гость просматривают эту тему.

1СNachalo

В коде надо прописать автоматическое появление ярлыка на рабочем столе,открывающего конкретную базу.
Формирую vbs файл.
По строке
b.targetpath = "C:\Program Files (x86)\1cv8t\common\1cestartt.exe"
открывается весь список баз.
Дописываю расположения базы
b.Arguments = "D:\ИФ\И2"
Сообщений об ошибке нет, но опять весь список баз.

Изменяю строку  "b.targetpath = "C:....." на
b.targetpath = "D:\Уч\8.3.10.2753\bin\1cv8ct.exe"ENTERPRISE /F"D:\ИФ\И2"
или на
b.Run ""D:\Уч\8.3.10.2753\bin\1cv8ct.exe" ENTERPRISE /F"D:\1C_base\New""
В обоих случаях - ошибка "Предполагается наличие окончания конструкции".

1СNachalo

Спасибо, разобралась сама. Всё работает.

1СNachalo

Думала, задача решена. Но нет, не совсем.
Для решения использовала 2 vbs файла, а надо обязательно только с помощью одного.
-----------------------------------------------
Содержание файлов
1ый файл
Set a=CreateObject("WScript.Shell")
c = a.SpecialFolders ("Desktop")
set b = a.createShortcut (c + "\Name.lnk")
b.targetpath = "E:\100.vbs"
b.WindowStyle = 1
b.IconLocation = "E:\icon.ico"
b.Save
----------------------------------
2й файл
Set WshShell=CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\1cv8\common\1cestart.exe"" ENTERPRISE /f E:\База2\",0,0
------------------------------------------------------------------------------------------------------
Первый файл вызывает второй файл, ярлык появляется на рабочем столе, запускается нужная база.
А вот как соединить файлы в один файл - выдаются ошибки.
Может кто может подсказать?






Похожие темы (5)

Рейтинг@Mail.ru

Поиск