判断并打开C盘的文件

真主

当C:\windows\esk\acd.exe存在时就打acd.exe
当不存在时看D:\windows\esk\acd.exe存不存在，存在就打开，不存在退出
请问这个怎样写

咱家是猫

用Dir判断是否存在
用超链接打开
或者直接用超链接打开,加出错代码忽略错误也行.

todaynew

大体如下：
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

真主

另外还能不能加个条件，就是当进程中有就不运行

todaynew

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

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

红尘如烟

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

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

复制代码

asklove

学习收藏
留以备用

真主

无法运行或生成MBE文件
运行时提示“Dim myFSO As New FileSystemObject” 用户定义类型未定义

todaynew

不记得需要引用下面的两个中的哪一个了，两个都引用一定可以。
Microsoft Office 12.0 Object Library
Microsoft Scripting Runtime