| |
 0 Кб. |
|
| | Создал файлик для резервного копирования.
Public Function FUN_REZERV()
Dim RetVal
RetVal = Shell(CurrentProject.Path & "\" & PVH_COPY.vbs, 1)
End Function
Пытаюсь его запустить....
Object Requered
говорят.....
Это - почему чего и сколько? | |
| |
| |
| |
|
|
| |
' VBS
'-- запустить приложение
Set oShell= WScript.CreateObject("WScript.Shell")
oShell.Run fcli, , True
Set oShell = Nothing
|
| |
| |
| |
| |
|
|
| | Z видимо ниясно изрекаюся.  | |
| |
| |
| |
0 Кб. |
|
| | Создал файлик для резервного копирования.
============================================
В базе XXX.MDB - создал функцию, для запуска этого файлика.
Public Function FUN_REZERV()
Dim RetVal
RetVal = Shell(CurrentProject.Path & "\" & PVH_COPY.vbs, 1)
End Function
Пытаюсь его (PVH_COPY.vbs) запустить этой функцией (FUN_REZERV).
На что Acess пишет
Object Requered
Это - почему чего и сколько? | |
| |
| |
| |
|
|
| | k=""""
Call Shell(k & name_file & k, vbHide) | |
| |
| |
| |
|
|
| | Нет не помогает
Инвалид аргумент
Public Function FUN_REZERV()
Dim RetVal
RetVal = Shell(CurrentProject.Path & "\PVH_COPY.vbs", 0)
End Function
|
надо активизировать программу запускающую скрипты!
Как Силыч велит, только надо активировать каку то ссылку в референсах или библиотеку подключить
Силыч - ни сказал........ | |
| |
| |
| |
|
|
| |
?CurrentProject.Path & "\PVH_COPY.vbs"
<шо тут, смотрел?>
|
| |
| |
| |
| |
|
|
| | тода може с безопасностью у тебя шото? :)
с уровнем | |
| |
| |
| |
|
|
| | Нужно ссылка в референсе
Windows Script Host Object Model;
и
Public Function FUN_REZERV()
' Windows Script Host Object Model;
Dim oShell As WshShell
Set oShell = CreateObject("Wscript.Shell")
oShell.Run CurrentProject.Path & "\PVH_COPY.vbs"
Set oShell = Nothing
End Function
|
Спасибо - вроде фурычит. | |
| |
| |
| |
|
|
| | угу  | |
| |
| |
| |
|
|
| |
ВСЕГДА.
А у мну ее нету и работает | |
| |
| |
|
|
