button - Msgbox 更改 vbs 的按钮标题

Question

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 标题，是打开文件夹，而不是退出。但我不知道该怎么做，我找不到办法做到这一点。也许我错过了一件简单的事情，因为我是编程新手。但我想知道这一点。

Answer 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