Msgbox返回值的应用求助

Chiyuen · 发表于 2020-2-10 21:34

想对Msgbox的结果进行判断，然后运行下一步，不知道这个IF条件要怎么写，请大神们帮忙

sub test()

MsgBox "陛下，大功告成，保存在 D:\00.生成，是否查看？", 4 + 32

这里想写一段如果选“是”，则打开D:\00.生成（这是一个文件夹），如果选否，则关闭Msgbox

end sub

山菊花 · 发表于 2020-2-10 21:54

If MsgBox("陛下，大功告成，保存在 D:\00.生成，是否查看？", 4 + 32, "保存") = 6 Then
Shell "Explorer.exe d:\00", vbNormalFocus
End If

Chiyuen · 发表于 2020-2-10 22:39

山菊花发表于 2020-2-10 21:54
If MsgBox("陛下，大功告成，保存在 D:\00.生成，是否查看？", 4 + 32, "保存") = 6 Then
Shell "Exp ...

非常感谢，成功了
sub test()

If MsgBox("陛下，大功告成，保存在 D:\00.生成，是否查看？", 4 + 32, "保存") = 6 Then
Shell "Explorer.exe d:\00", vbNormalFocus
End If

end sub

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

[求助] Msgbox返回值的应用求助