设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1389|回复: 4
打印 上一主题 下一主题

[窗体] 为何找不到TIF文件

[复制链接]
跳转到指定楼层
1#
发表于 2012-3-23 10:21:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 付谦 于 2012-3-23 10:23 编辑

点击ACDSEE可以打开TIF位图文件,用以下代码提示找不到文件,C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe是对的,错在何处?
Private Sub Command22_Click()
If Text40 <> "" Then
Dim Filepath As String
Dim RetVal
Filepath = Me![文件位置]
Select Case Me![文件类型]
Case "DOC"
RetVal = Shell("Winword " & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
Case "TIF"
RetVal = Shell("C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe" & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
End Select
Else
  MsgBox "没有附件供打开"
End If
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2012-3-23 12:46:33 | 只看该作者
C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe 里面 再加多层 引号
3#
 楼主| 发表于 2012-3-23 18:19:05 | 只看该作者
tmtony 发表于 2012-3-23 12:46
C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe 里面 再加多层 引号

我试了几次不成功,请二楼详细指点多层 引号如何加?谢谢!
4#
 楼主| 发表于 2012-3-25 08:51:38 | 只看该作者
本帖最后由 付谦 于 2012-3-25 08:55 编辑
付谦 发表于 2012-3-23 18:19
我试了几次不成功,请二楼详细指点多层 引号如何加?谢谢!


5#
 楼主| 发表于 2012-3-25 08:56:11 | 只看该作者
tmtony 发表于 2012-3-23 12:46
C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe 里面 再加多层 引号

通过思考找原因,终于知道了问题所在,问题得到解决.原来仅是2个文件名之间少了一个空格,讲出来引以为戒,少走弯路
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:33 , Processed in 0.089134 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表