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