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, для yes Open Folder и no Exit. Но я не знаю, как это сделать, и я не мог найти способ сделать это. Может быть, мне не хватает простой вещи, потому что я новичок в программировании. но я хотел бы научиться этому.
