Msgbox更改按鈕標題爲vbs

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標題，是打開文件夾和沒有退出。但我不知道該怎麼做，而且我也找不到這樣做的方法。也許我錯過了一件容易的事情，因爲我是編程新手。但我想知道這一點。Msgbox更改按鈕標題爲vbs

來源

2014-02-26 Rıdvan Çetin

我會建議使用您的信息框的標題，說因此只需閱讀標題「Yes」按鈕即可完成。此外，在消息框文本中，描述按鈕將執行的操作：*單擊「是」打開文件夾。點擊「否」退出。* – Bond

這就是我現在所做的，但改變這些按鈕會很好，是不可能的？ –

不與純VBScript，沒有。您可以使用其他語言（如VB6）創建自己的消息框作爲ActiveX控件，並從VBScript中調用它。除此之外，你的選擇是相當有限的。 – Bond

這是不可能的。用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

來源

2014-02-26 15:17:44

Msgbox更改按鈕標題爲vbs

回答

相關問題