Suche
Programmschnipsel
Script beenden |
Script mit einem "quit" beenden.
Option Explicit
Dim s, i 'Eine Endlos-Schleife Do i = i + 1 If MsgBox (i & ". Schleife" & vbCrLf & "Soll das Script beendet werden.", _ vbYesNo + vbExclamation, "Abbrechen der Schleife") = vbYes Then WScript.quit End If Loop |