ник: Дядя Федор
Имеется скрипт (D:\VBS\VbSHELL.VBS):
OptionExplicit
MyMsg "*","Всем бояться!!!!"
Sub MyMsg(strKomu,strMsg)
Dim WshShell1
Set WshShell1 = WScript.CreateObject("Wscript.Shell")
WshShell1.Run "msg " & strkomu & " " & """" & strmsg & """", 0, 0 'ЭТО СТРОКА №7
Set WshShell1 = Nothing
End Sub
|
Запускается, работает.
В базе есть модуль, например
Option Compare Database
Option Explicit
Public Sub startvbs(s_namescript$)
Call Shell("Wscript.exe " & s_namescript, vbHide)
End Sub
Public Sub tst()
startvbs "D:\VBS\VbSHELL.VBS"
End Sub
|
При запуск ругается:
Сценарий D:\VBS\VbSHELL.VBS
Строка 7
Символ 1
Не удается найти указанный файл.
Что за хрень? Чувствую, проблема в правах, но почему они теряются при запуске из ACCESS?
ПС.
Скрипт сокращен для выделения проблемы.
Вообще сами (другие) скрипты запускаются и отрабатывают.
Затык с msg.
Пути прописывал и прямо и через %WINDIR%
НЕ РАБОТАЕТ!
Прошу помощи.
