主页 / coding / 问题 / 77338481
Accepted
jani
Asked: 2023-10-22 10:56:12 +0800 CST

检查安装了哪些浏览器，然后在桌面上创建快捷方式

  • 772

我们可以借助下面给出的代码检查用户计算机上安装的浏览器。

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

检查完已经安装的浏览器后，如何在任意浏览器的桌面上创建快捷方式呢？

vb.net

1 个回答

  1. Best Answer

    您还可以使用这样的简单代码来实现您的目标。我已经修改了您的代码并提供了合适的解决方案。如果您发现它正确且方便，请检查为已接受的解决方案。

         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

相关问题