先NEW一下
网站建设哪家好，找创新互联建站！专注于网页设计、网站建设、微信开发、小程序设计、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了尼勒克免费建站欢迎大家使用！
Dim AcadApp As AutoCAD.AcadApplication
修改成
Dim AcadApp As new AutoCAD.AcadApplication
晕。你要DIR一下目录，看有没有存在QQ.exe啊
用法：
If Directory.Exists("你的路径里的\qq.exe") = true Then
'注释：TRUE是存在，反之false是不存在
System.Diagnostics.Process.Start(Application.StartupPath "\QQ.exe")
'注释：存在就运行你的程序
else '注释：不存在就执行目录搜索
'目录搜索怎么做？放3个控件，Driver,Dir,FileList就可以啦
'循环取Driver里的驱动器名，当然可以过滤只要硬盘
'加载driver里的所有文件及文件夹到dir和FileList
'循环读dir里所有文件去找。。。
'思路就是这样。代码就不用写了吧？判断文件是否存在，还是上面那段Directory.Exists("你的路径里的\qq.exe") = true
'可以就给点分吧。穷的可怜啊
end if
安装的有问题了（可能是安装过程中的失败或者是误操作导致文件被删除），修复安装一下吧
也有可能是磁盘问题，看看是不是磁盘空间不足。如果等待很久（电脑假死）之后出现这个问题，有可能是硬盘坏道导致文件读取失败。