• 0

Exitting a vbscript based on msgbox result


Question

folks;

I'm really new at vbscripting for windows but have managed to work out some of my issues.

I'm stuck on closing the script early if a user clicks the cancel button in a msgbox.

I can get the result code but even using wscript.quit the script continues to run when I click cancel in the msgbox box.

Here's a snippet of the script I am working on

On error resume next

MsgBox "This utility will close ALL instances of Microsoft Access.", 1+32

If result = 2 then wscript.quit

For each Process in GetObject("winmgmts:").InstancesOf ("win32_process")

If ucase(Process.name) = ucase("msaccess.exe") Then

Process.Terminate

End IF

Next

Msgbox "Time to continue with other steps"

The idea is to close the script if the Cancel button is pressed or continue if OK is pressed.

Appologies for the rookie question but I can't find any guidance on this .

Thanks

5 answers to this question

Recommended Posts

  • 0

like this...

result = MsgBox("This utility will close ALL instances of Microsoft Access.", vbOkCancel) 
if(result=vbCancel)Then ' or result=2
		  wscript.echo "you chose 'cancel'.  exiting script."
		  wscript.quit
else
		  WScript.Echo "you chose 'ok'."
end If

you either add your constant values together for the display icon or you use the intrinsic name (vbOkCancel, etc.)

for instance, your "1+32" displays the ok\cancel options with the question mark image in the dialog box. not sure if that's what you were aiming for...

here's a list of the contants...

msgbox constants

  • 0

Thanks pacifica. That helps a ton.

More assistance if possible.

Once I have determined if the user wants to continue, there are a few additional steps that will follow. Each step has the potential to error, present an error message, user clicks OK and the script quits.

What's the best way to structure this.

Here is some more of the script.

'Check to see if USERFOLDER exists

'if not then create the folder

'yes then delete all files in the folder

If NOT objFSO.FolderExists(strUSERFOLDER) then objFSO.CreateFolder(strUSERFOLDER) else objFSO.DeleteFile(strUSERFOLDER & strALLFILES)

numerr = Err.number

abouterr = Err.description

If numerr <> 0 Then MsgBox "Please contact HELPDESK and provide the following information" &vbCRLF&vbCRLF& "Error number: " &numerr&vbCRLF& "Description: " &abouterr&vbCRLF& "data: " &strUSERFOLDER, 0+16, "ERROR with User folder"

Err.Clear

'COPY CHIP.MDE to local system

objFSO.CopyFile strSRCFOLDER&strCHIPMDE, strUSERFOLDER

numerr = Err.number

abouterr = Err.description

If numerr <> 0 Then MsgBox "Please contact HELPDESK and provide the following information" &vbCRLF&vbCRLF& "Error number: " &numerr&vbCRLF& "Description: " &abouterr&vbCRLF& "Data: " &vbCRLF& " " &strSRCFOLDER&strCHIPMDE &vbCRLF& " " &strUSERFOLDER&strCHIPMDE, 0+16, "ERROR copying CHIP.MDE"

Err.clear

If the first section fails, I want the script to exit when the user presses OK, ditto with the second section. there are 3 more sections after this.

thanks again

  • 0

you could do this instead for your if statements (sorta the samething pacifica posted)

If numerr &lt;&gt; 0 then
	MsgBox "Please contact HELPDESK and provide the following information" &amp;vbCRLF&amp;vbCRLF&amp; "Error number: " &amp;numerr&amp;vbCRLF&amp; "Description: " &amp;abouterr&amp;vbCRLF&amp; "data: " &amp;strUSERFOLDER, 0+16, "ERROR with User folder"
	wscript.quit
End if

Edited by primortal
  • 0

Thanks.

Everything works the way i had originally envisioned it.

Any recommendations for learning vbScripting for Windows...good books or programs...editors (I'm using Context - it is pretty basic)

One other question, Is it possible to compile .vbs files into exe's or is it worth it?

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • I think Sequoia will be the last stop for my old 2012 Mac mini (with 16GB RAM & 512MB SSD). It runs Sonoma OK, so perhaps Sequoia will work well too. I don't have high hopes for Tahoe, however - that looks to be a GPU-intense OS.
    • The blobby, bouncy UI effects seem like they would get old really fast. https://www.youtube.com/watch?v=jGztGfRujSE
    • Samsung Galaxy Watch8 Classic allegedly leaked through eBay listing by David Uzondu A new eBay listing (archived) just casually dropped the entire Samsung Galaxy Watch8 Classic on the internet. As spotted by OnLeaks, someone in Wilmington, Illinois, is trying to offload what looks like a genuine, unreleased unit for a "buy it now" price of around $570. To be clear, that is the seller's asking price, not the official figure from Samsung. The listing's title is simple: "Samsung Galaxy Watch8 Classic SM-L505U 64GB LTE 46mm Silver unreleased NOB". You really have to appreciate the audacity of just posting it for the world to see, weeks before its official debut. The photos themselves are a goldmine, showing the SM-L505U model looking exactly like the renders that leaked last month. We are getting a proper physical rotating bezel, which is a big deal for a lot of people. The case itself has this interesting squircle shape, sort of like the icon shapes in OneUI, while the screen inside remains perfectly round. Image via amonste_92 on eBay The watch has a prominent crown nestled between two physical buttons, with a speaker grille visible on the opposite side. The whole package, shown with its leather strap and the usual magnetic charging puck. Image via amonste_92 on eBay That "64GB" in the listing title is a huge detail if it's accurate, as it's double the 32GB of storage as we saw with the Watch 7. Spec-wise, the Watch 8 is rumored to run on the same Exynos W1000 chip that debuted in the Watch 7 last year, which means we might not see a leap in processing power. So you get more space for music and apps, but the core engine remains the same. The Watch8 Classic is rumored to debut with a 435mAh battery, a 1.5-inch display, and One UI 8 Watch.
    • Your own genitals unmatch right toes.
    • I wonder why they jumped from 0.1 to 0.4?
  • Recent Achievements

    • Explorer
      MusicLover2112 went up a rank
      Explorer
    • Dedicated
      MadMung0 earned a badge
      Dedicated
    • Rookie
      CHUNWEI went up a rank
      Rookie
    • Enthusiast
      the420kid went up a rank
      Enthusiast
    • Conversation Starter
      NeoToad777 earned a badge
      Conversation Starter
  • Popular Contributors

    1. 1
      +primortal
      504
    2. 2
      ATLien_0
      268
    3. 3
      +FloatingFatMan
      257
    4. 4
      Edouard
      202
    5. 5
      snowy owl
      177
  • Tell a friend

    Love Neowin? Tell a friend!