ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код VBS
 Set Sh = CreateObject("WScript.Shell")
      
'Переиндексирую базу
Set oExec1 = Sh.Exec("""C:\Program Files\1Cv77\BIN\1cv7.exe"" CONFIG /d""C:\bases2005"" /nПрограммист /pXXXXX /@c:\bases2005\ExtForms\sys\Chk.txt")

'Дожидаюсь, пока она не отработает
Do While oExec1.Status = 0
WScript.Sleep 100
Loop

Set oExec1 = Nothing
WScript.Sleep 10000


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.