Office中国论坛/Access中国论坛

标题: 判断并打开C盘的文件 [打印本页]

作者: 真主 时间: 2010-1-8 13:09
标题: 判断并打开C盘的文件
当C:\windows\esk\acd.exe存在时就打acd.exe
当不存在时看D:\windows\esk\acd.exe存不存在，存在就打开，不存在退出
请问这个怎样写

作者: 咱家是猫 时间: 2010-1-8 13:19
用Dir判断是否存在
用超链接打开
或者直接用超链接打开,加出错代码忽略错误也行.

作者: todaynew 时间: 2010-1-8 13:25
本帖最后由 todaynew 于 2010-1-8 13:30 编辑

大体如下：
Dim myFSO As New FileSystemObject
dim strname as string
If myFSO.FileExists("C:\windows\esk\acd.exe") = True Then
strname="C:\windows\esk\acd.exe"
Else
IF myFSO.FileExists("D:\windows\esk\acd.exe") = True  Then
      strname="D:\windows\esk\acd.exe"
Else
      MsgBox "文件不存在！"
      Exit Sub
End If
End If
Shell strname

注意：需要增加引用 Microsoft Office 12.0 Object Library

作者: 真主 时间: 2010-1-8 13:27
另外还能不能加个条件，就是当进程中有就不运行

作者: todaynew 时间: 2010-1-8 13:35

另外还能不能加个条件，就是当进程中有就不运行
真主发表于 2010-1-8 13:27

进程中有不知道怎么判断，呵呵。

作者: 红尘如烟 时间: 2010-1-8 13:41
本帖最后由红尘如烟于 2010-1-8 13:48 编辑

其实只要一句代码就行了，不过要注意错误处理：

On Error Resume Next
If Shell("C:\windows\esk\acd.exe", vbNormalFocus) = 0 Then Shell "D:\windows\esk\acd.exe", vbNormalFocus

复制代码

作者: asklove 时间: 2010-1-8 14:12
学习收藏
留以备用

作者: 真主 时间: 2010-1-8 14:24
无法运行或生成MBE文件
运行时提示“Dim myFSO As New FileSystemObject” 用户定义类型未定义

作者: todaynew 时间: 2010-1-8 15:22
不记得需要引用下面的两个中的哪一个了，两个都引用一定可以。
Microsoft Office 12.0 Object Library
Microsoft Scripting Runtime

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)