Лекции по Microsoft Access 2000

       

Public Function funCreateNewHelp()


Dim fs, s As String, hlp As String

On Error GoTo 999

    Set fs = CreateObject("Scripting.FileSystemObject") 'Создаем файловую систему

    s = fs.GetSpecialFolder(0) & "\hh.exe"  'Составляем hh.exe файл

    If Dir(s) <> "" Then 'Проверяем exe-файл

        hlp = fs.GetFile(CurrentDb.Name).ParentFolder & "\Калькулятор.chm" 'Находим справку

        If Dir(hlp) <> "" Then 'Проверяем файл справки

            s = """" & s & """ -mapid " & 103 & " """ & hlp & """" 'Составляем команду

            Shell s, vbMaximizedFocus 'Запускаем справку

        End If

    End If

    Exit Function 'Выходим из программы

999:

    Err.Clear 'Очищаем поток от ошибок



Содержание раздела