Execution bombs at the "bug fix by Eric Moore" DO.
That code has worked fine for over a year - - -
IF FILE(cMyCurrentJPG)
WAIT WINDOW NOWAIT CMYCURRENTJPG
oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Navigate(cmycurrentjpg)
=INKEY(1)
nStartSeconds = SECONDS()
* bug fixed by Erik Moore Nov 25/99
DO WHILE oIE.ReadyState <> 4 AND (SECONDS()-nStartSeconds < 30)
ENDDO
oIE.Visible = .T.
RELEASE oIE
oIE= .NULL.
ELSE
WAIT WINDOW NOWAIT "PICTURE FILE "+ CMYCURRENTJPG+ " DOES NOT EXIST!"
ENDIF
Is there a fix for the bug fix?
Edgar L. Bolton, B.S. B.B.A.