Início / coding / Perguntas / 77338481
Accepted
jani
Asked: 2023-10-22 10:56:12 +0800 CST

Verifique quais navegadores estão instalados e crie um atalho na área de trabalho

  • 772

Podemos verificar os navegadores instalados no computador do usuário com a ajuda do código a seguir fornecido.

If File.Exists("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe") OrElse File.Exists("C:\Program Files\Google\Chrome\Application\chrome.exe") Then
    ListBox1.Items.Add("Chrome.exe")
End If

If File.Exists("C:\Program Files (x86)\Mozilla Firefox\firefox.exe") OrElse File.Exists("C:\Program Files\Mozilla Firefox\firefox.exe") Then
    ListBox1.Items.Add("Firefox.exe")
End If

Após verificar todos os navegadores já instalados, como podemos criar um atalho na área de trabalho de qualquer navegador?

vb.net

1 respostas

  1. Best Answer

    Você também pode usar um código simples como este para atingir seu objetivo. Modifiquei seu código e forneci uma solução adequada. Se você achar correto e conveniente, verifique como solução aceita.

         Dim path1 As String
    Dim path2 As String
    path1 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    path2 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    If System.IO.File.Exists(path1) OrElse System.IO.File.Exists(path2) Then
        ListBox1.Items.Add("Chrome.exe")
        Dim shell As WshShell = New WshShell()
        Dim shortcut As IWshShortcut = shell.CreateShortcut("C:\Users\Administrator\Desktop\chrome1.lnk")
        If System.IO.File.Exists(path1) OrElse System.IO.File.Exists(path2) Then
            shortcut.TargetPath = "C:\Program Files\Google\Chrome\Application\chrome.exe"
            shortcut.Save()

        End If

    End If
    • 1

relate perguntas