Skip to content

Commit f400fbc

Browse files
committed
Do events while waiting for shell command to complete
Closes #371
1 parent 83f1706 commit f400fbc

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/WebHelpers.bas

+2
Original file line numberDiff line numberDiff line change
@@ -1642,6 +1642,8 @@ Public Function ExecuteInShell(web_Command As String) As ShellResult
16421642
web_Chunk = VBA.Left$(web_Chunk, web_Read)
16431643
ExecuteInShell.Output = ExecuteInShell.Output & web_Chunk
16441644
End If
1645+
1646+
VBA.DoEvents
16451647
Loop
16461648

16471649
web_Cleanup:

0 commit comments

Comments
 (0)