Jump to content

Recommended Posts


Posted

ret = msgbox("Do you want to install x",vbYesNo)

If ret = vbYes then

Msgbox "Do run command here"

Else

Msgbox "No Run"

End If

You can remove the else and the msgbox "no run" if you don't care about a no answer.

Mike

Posted

Here Try this

Dim sh, arg, r, sys, fso
Set sh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oWS = WScript.CreateObject("WScript.Shell")
  r = msgbox("Message One" & vbcrlf & "Message Two" & vbcrlf & "Message Three.", 35, "The Title On The Bar")
    if r = 2 then
       wscript.Quit
    elseif r = 6 then
        sh.Run("FILL IN WITH WHAT YOU WANT")
    else
   
    end if

Hope This helps

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...