msgbox 更改 vbs 的按钮标题答案

【问题标题】：Msgbox changing button caption for vbsmsgbox 更改 vbs 的按钮标题
【发布时间】：2023-03-24 21:10:01
【问题描述】：

Option Explicit
Const conForReading = 1
Dim objFSO, objReadFile, objFile, contents, result, shell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\read.txt") 

If objFile.Size  Then 
Set objReadFile = objFSO.OpenTextFile("C:\read.txt", 1, False)
contents = objReadFile.ReadAll
result = MsgBox ("text2" & contents & "text1",vbYesNo+vbExclamation,"TITLE")
Select Case result
Case vbYes
Set shell = wscript.CreateObject("Shell.Application")
shell.Open "D:\folder"
Case vbNo
End Select
objReadFile.close

Else 
End If  

Set objFSO = Nothing 
Set objReadFile = Nothing 
WScript.Quit()

我有这个 vbs 文件，我想更改 vbYesNo 标题，为是打开文件夹，不为退出。但我不知道该怎么做，我找不到办法做到这一点。也许我错过了一件简单的事情，因为我是编程新手。但我想学习。

【问题讨论】：

我建议为您的消息框使用一个标题为“打开文件夹？”因此，只需阅读标题即可清楚“是”按钮的作用。此外，在消息框文本中，描述单击按钮的作用： 单击“是”打开文件夹。点击“否”退出。
这就是我现在所做的，但改变这些按钮会很好，这不可能吗？
不使用纯 VBScript，不。您可以使用另一种语言（如 VB6）创建自己的消息框作为 ActiveX 控件，并从 VBScript 调用它。除此之外，您的选择非常有限。
您还可以通过 Internet Explorer COM 对象或 HTA 创建自定义对话框。见here。

标签： button vbscript caption msgbox

【解决方案1】：

这是不可能的。 MessageBox 函数没有此选项。您的选择是：

OK
OK, Cancel
Abort, Retry, Ignore
Yes, No, Cancel
Yes, No
Retry, Cancel

参考： http://msdn.microsoft.com/en-us/library/sfw6660x(v=vs.84).aspx

【讨论】：