重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先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
安装的有问题了(可能是安装过程中的失败或者是误操作导致文件被删除),修复安装一下吧
也有可能是磁盘问题,看看是不是磁盘空间不足。如果等待很久(电脑假死)之后出现这个问题,有可能是硬盘坏道导致文件读取失败。