Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: silich
Public Function VersionMS(Optional appnam$ = "msaccess") Dim FSO As Object If appnam <> "msaccess" And appnam <> "excel" And appnam <> "winword" Then Exit Function Set FSO = CreateObject("Scripting.FileSystemObject") VersionMS = FSO.GetFileVersion(SysCmd(acSysCmdAccessDir) & appnam & ".exe") Set FSO = Nothing End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.