Button Msgbox更改vbs的按钮标题

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

这是不可能的。MessageBox函数没有用于此操作的选项。你的选择是：

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() 

参考：

---

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

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