| |
|
|
| | Имеется скрипт (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%
НЕ РАБОТАЕТ!
Прошу помощи.  | |
| |
| |
|
|
| |
|
|
| | перепробовал ВСЕ.:)
Кстати Windows-7
Откуда-то запускается, откуда-то нет... вот в чем прикол.
Если с ярлыка скрипта - без проблем.
Если из vba - нет.
Из Unreal-коммандера - нет.
Пуск-найти программы и файлы ищет.
И путь вроде C:\Windows\system32\msg.exe
Но никак. блин. | |
| |
| |
|
|
