Hi, вам «исполняете» который Sub, или извлекаете Sub OpenFile и кончаете Sub линии, и вероятно также вам не нужны экстренные цитаты.
Установите objShell = WScript.CreateObject («Wscript.Shell»)
thinapp = «\ \ сервер \ apps$ \ школа \ PSP8 \ красильная мастерская профессиональное 8.exe jasc»
thinapp objShell.Run, 1, ложно
Отношения,
Rob.