主题：[求助] 打开某软件

Dim Proc As New Process '定义一个新的Process
Proc.File = "C:\CAD2007.EXE" '指定要打开的文件
Proc.Start()

上述代码是指定位置在C盘的文件

那如果不指定其具体位子

有可能在C盘，也有可能在D盘

请问怎么修改呢？

谢谢！

这个意思？

dim ary() as string = {"C","D", "E"}
For Each s As String In ary
    Dim f As String = s & "CAD2007.EXE"
    If FileSys.FileExists(f) Then
        Dim Proc As New Process '定义一个新的Process
        Proc.File = f
        Proc.Start()
    End If
Next

谢谢大红袍老师，上述代码无效

比如：我的QQ安装在路径是C:\Program Files\QQ\Bin\QQScLauncher.exe

代码定义为：

Dim Proc  As New Process  '定义一个新的Process
 Proc.File = "C:\Program Files\QQ\Bin\QQScLauncher.exe"  '指定要打开的文件
Proc.Start()

那假设我不知道他的真实安装路径

我只知道这个QQScLauncher.exe或是acad.exe或Photoshp.exe

他具体是安装路径却不知道在哪（因每个人的安装习惯不一样）

只能是通过按钮代码搜索再确认

方法一：直接获取注册表数据

dim str As string = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ2009","Install", "")
msgbox(str)

方法二：递归遍历所有文件，参考

载信息  [文件大小：292.0 KB  下载次数：84]

点击浏览该文件:文件递归.table

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68184&skin=0

如上地址，要打开第三方软件

而路径不确定，由代码自动搜索找到后打开第三方软件