QUAL CAMINHO PARA SE ABRIR O INTERNET EXPLORER

PEGUDO 30/11/2010 14:12:31
#358503
Pessoal não consigo abrir o internet explorer no XP, Vejam:

[txt-color=#0000f0]If[/txt-color] SistOperacional.Contains([txt-color=#e80000][Ô]Windows 7[Ô][/txt-color])[txt-color=#0000f0] Then[/txt-color]
Shell([txt-color=#e80000][Ô]C:\Program Files\Internet Explorer\iexplore.exe [Ô][/txt-color] & Link, Microsoft.VisualBasic.AppWinStyle.MaximizedFocus)
[txt-color=#0000f0]ElseIf[/txt-color] SistOperacional.Contains([txt-color=#e80000][Ô]XP[Ô][/txt-color]) [txt-color=#0000f0]Then[/txt-color]
[txt-color=#0000f0]Try[/txt-color]
Shell([txt-color=#e80000][Ô]C:\Arquivos de programas\Internet Explorer\iexplore.exe[Ô][/txt-color] & Link, AppWinStyle.MaximizedFocus)
[txt-color=#0000f0]Catch
With[/txt-color] JanelaAbrir
.Title = [txt-color=#e80000][Ô]Abrir Browser[Ô][/txt-color]
.Filter = [txt-color=#e80000][Ô]Arquivo executável (*.exe)|*.exe[Ô][/txt-color]
[txt-color=#0000f0]End With[/txt-color]

[txt-color=#0000f0]If[/txt-color] JanelaAbrir.ShowDialog = Windows.Forms.DialogResult.OK [txt-color=#0000f0]Then[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Executavel [txt-color=#0000f0]As String[/txt-color] = JanelaAbrir.FileName
Shell(Executavel & Link, AppWinStyle.MaximizedFocus)
[txt-color=#0000f0]End If
End Try
End if[/txt-color]

Ou seja, Se o programa detectar o Windows 7, o Browser é iniciado (Tá funcinando direitinho);
Quando o programa é rodado no XP, ele diz que não consegue achar o executável, aí eu fiz aparecer uma janela de diálogo, caso o arquivo não fosse encontrado, mas mesmo pegando o caminho correto do braowser pela janela, o programa diz que não consegue encontrar o arquivo.

Como eu posso abrir o IE no XP?
JONATHANSTECKER 30/11/2010 15:04:14
#358509 Resposta escolhida
Citação:

Shell([Ô]C:\Arquivos de programas\Internet Explorer\iexplore.exe[Ô] & Link, AppWinStyle.MaximizedFocus)



Acredito que não funcionou porque você não deixou um espaço ao definir o link.
Tente dessa forma:

Shell([Ô]C:\Arquivos de programas\Internet Explorer\iexplore.exe [Ô] & Link, AppWinStyle.MaximizedFocus)
LUIZCOMINO 30/11/2010 15:29:36
#358511
e se vc colocar somento o


Shell([Ô]iexplore.exe [Ô] & Link, AppWinStyle.MaximizedFocus)
PEGUDO 01/12/2010 07:15:19
#358535
é... era o espaço mesmo que estava faltando. Engraçado que no código referente ao Windows 7, eu pus o espaço e no do XP nem reparei nisso.

Valeu.
Tópico encerrado , respostas não são mais permitidas
Voltar