Shell条件判定及提示

ZHUHUIFENG · 发表于 2018-9-6 16:11

各位老师，大家好
小弟做一个Shell的可以使用，不过因为有的时候会出项错误
所以是否有人能帮忙出手建立一个条件判断及提示，
如果OK就执行，找不到文件名字或者不对，就提示及退出

Private Sub CommandButton1_Click()
*希望增加判定
如果存在此文件就执行，如果不存在就提醒“文件不存在”后，退出即可

Shell "C:\Program Files (x86)\Seagull\BarTender Suite\bartend.exe /F=""C:\Users\zhuhuifeng\Desktop\BTW1\LENOVO " & Cells(2, 9).Value & " Ver01.btw"""

End Sub

拜托了，谢谢。

ZHUHUIFENG · 发表于 2018-9-6 16:15

不好意思，忘记附件了。上传附件。

ivccav · 发表于 2018-9-6 16:21

直接加一句判断DIR不就行了？DIR如果找不到指定文件会返回空字符串

if Len(dir("C:\Users\zhuhuifeng\Desktop\BTW1\LENOVO " & Cells(2, 9).Value & " Ver01.btw")) then 执行shell

ZHUHUIFENG · 发表于 2018-9-6 16:37

非常感谢，OK了。谢谢。

ZHUHUIFENG · 发表于 2018-9-6 16:38

ivccav 发表于 2018-9-6 16:21
直接加一句判断DIR不就行了？DIR如果找不到指定文件会返回空字符串

if Len(dir("C:%users\zhuhuifeng\ ...

谢谢，出手帮助

		自动登录	找回密码
密码			免费注册

[求助] Shell条件判定及提示