Try to get better error handling in VBS

2022-09-22 22:14:03 +02:00 · 2022-09-22 22:14:03 +02:00 · b6c37554ab
parent f76123a721
commit b6c37554ab
1 changed files with 2 additions and 1 deletions
--- a/console.vbs
+++ b/console.vbs
@ -93,7 +93,8 @@ Private Sub Run
    If code = "" Then code = RemoveCr(input.value)
    If Trim(code) = "" Then Exit Sub
    Err.Clear
-    Execute code
+    ConsoleLog code, "lightblue"
+    Execute "On Error Resume Next" & vbCrLf & code
    If Err.Number <> 0 Then
        Error "Error " & Err.Number & " - " & Err.Source & ": " & Err.Description
    End If