比如我的电脑上装了迅雷
路径未知
怎么用vb获取他的安装路径呢
在线等？？

方法1 搜索磁盘上所有文件
方法2 没试过，不过据说搜索注册表找到迅雷的相关信息,个人觉得可行,速度比方法1快

Private Sub Command1_Click()

    MsgBox getQQpath
   
End Sub

Public Function getQQpath() As String
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")

    getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd\path")
End Function