Путь к Internet Explorer.

[Mikle]

Подскажите как сделать, чтобы программа на произвольном компе могла запустить Internet Explorer? Где найти путь? В Environ нет.

[hCORe]

По-моему, он всегда в папку Program Files\Internet Explorer, так что можно вызвать так:

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

Public Sub StartExplorer (Optional URL as String)
    Dim PFiles as String
    PFiles = Environ("PROGRAMFILES")
    If Len(PFiles) = 0 Then PFiles = "C:\Program Files\"
    If Mid(PFiles, Len(PFiles), 1) <> "\" _
    Then PFiles = PFiles & "\"
    PFiles=PFiles & "Internet Explorer\"
    If Len(URL) <> 0 Then
        Shell PFiles & "iexplore.exe " & _
        Chr(34) & URL & Chr(34), vbNormalFocus
    Else
        Shell PFiles & "iexplore.exe", vbNormalFocus
    End If
End Sub

А для пущей универсальности подрубай библу SHDocVw (Microsoft Internet Controls) и создавай объект InternetExplorer. Так и быстрее, и удобнее

[Mikle]

Благодарю, IE, вроде, действительно всегда в папке "Program Files\Internet Explorer". Применил твой код, только добавил определение буквы диска - из Windir.