Sub pauseScript()
Dim strMessage, Input
strMessage = vbNewLine & "Press ENTER to continue."
Wscript.StdOut.Write strMessage
WScript.Echo vbNewLine & "(CTRL-C) to cancel."
Do While Not WScript.StdIn.AtEndOfLine
Input = WScript.StdIn.Read(1)
Loop
End Sub
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial