Не срабатывает функция "Shell"

[Frot]

В коде пишу

Код: Выделить всё


Private Sub Button0_Click()
VBA.Shell "calc.exe", vbNormalFocus
End Sub


И ничегошеньки не происходит Куда копать???

[FAER]

Попробуй просто

Код: Выделить всё

Shell "calc.exe"


[Frot]

Попробуй просто

Код: Выделить всё

Shell "calc.exe"


Неа, все равно ничего не происходит

[FAER]

А что говорит? Название кнопотульки у тебя правильное? И попробуй заодно вместо "calc" что нибудь другое вписать - может, кальк твой умер.. Хотя это мало вероятно.

[Frot]

А что говорит? Название кнопотульки у тебя правильное? И попробуй заодно вместо "calc" что нибудь другое вписать - может, кальк твой умер.. Хотя это мало вероятно.

А вот ничего не говорит
А каким образом название кнопульки должно влиять на вызов WinAPI функции??? И ладно, я в бэйсике дурак, посему вопрос: какое должно быть название кнопки чтобы можно было вызывать WinAPI функции? И еще: calc.exe очень даже жив, и как раз использовался для проверки не умерла ли моя программа...

[Frot]

Так. почему не срабатывало я разобрался: Kaspersky мешал... Теперь такой вопрос: как узнать путь до базы? CurrentDb.Name возвращает путь с именем файла, как отрезать имя файла и вместо него приклеить что-нибудь типа "addin.exe"?

[alibek]

Подсказка: InStrRev

[Frot]

Подсказка: InStrRev

Сэнкс, то что надо