1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Определить Что Установлено

Тема в разделе "Lotus - Программирование", создана пользователем dimat, 25 янв 2012.

  1. dimat

    dimat Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    31 июл 2008
    Сообщения:
    516
    Симпатии:
    0
    Всем привет!
    У некоторых пользователей установлен MS Office, а у некоторых OpenOffice.
    1. Какими способами возможно определить что установлено?
    2. Как открыть указанный файл в Excel или Calc?
     
  2. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    под виндой

    1. Реестр (ключи)
    2. Попробовать создать сом-обьект мс оффиса и обработать ошибку

    открывать файл в винде - через Shell - тогда будет открываться в программе по умолчанию
     
  3. Yakov

    Yakov Гость

    Репутация:
    0
    Вот кусок кода, который делает, что надо. Указанный файл открывается той программой, которая ассоциирована с его типом.
    Код:
    	Private Sub openFile(fileName As String)
    Dim objShell As Variant
    Dim objFolder As Variant
    Dim objFolderItem As Variant
    Dim folder As String
    Dim file As String
    folder = Strleftback(fileName, "\")
    file = Strrightback(fileName, "\")
    Set objShell = CreateObject("Shell.Application")
    If objShell Is Nothing Then
    Print "shell object not created"
    Exit Sub
    End If
    Set objFolder = objShell.NameSpace((folder))
    If objFolder Is Nothing Then
    Print "no folder: " + folder
    Exit Sub
    End If
    Set objFolderItem = objFolder.ParseName(file)
    objFolderItem.InvokeVerbEx("Open")
    End Sub
     
  4. dimat

    dimat Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    31 июл 2008
    Сообщения:
    516
    Симпатии:
    0
    Спасибо за ответы!
     
  5. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    Yakov
    ого, а зачем если можно ещ' проще
    Код:
    Set WShell = CreateObject("WScript.Shell") 
    ReturnCode = WShell.Run("C:\1.doc", 1, False)
     
Загрузка...

Поделиться этой страницей