Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Invalid Path or Filename Error
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Title:
Invalid Path or Filename Error
Miscellaneous
Thread ID:
00800945
Message ID:
00800945
Views:
49
VFP7 and 8 runtime. Tried both. This is a simple VFP EXE file that uses a top-level form. Before the main PRG file gets run, I get the subject error message. No error number, and no way to trap the error because the ON ERROR in my main PRG never gets established because the error hits before the main PRG even runs.

Running this from a separate folder from the dev folder under runtime works fine on my machine of course. I have checked the Common Files for the VFP7/8 runtime files. They are there and registered [re-registered them myself as well]. Can anyone point me in some direction to troubleshoot this? TIA!

The CONFIG.FPW looks like this:
SCREEN=OFF
SYSMENU=OFF
RESOURCE=OFF
FWIW, the pertinent code from the main PRG file looks like:
#INCLUDE DEFAULTS.H
PRIVATE goApp
goApp = CREATEOBJECT('AppManager')
IF VARTYPE(goApp) <> [O]
   MESSAGEBOX([Application initialization error.],16,[Error!])
   QUIT
ENDIF
ON ERROR goApp.LogError(ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO())
ON SHUTDOWN goApp.KillEvents()
DO FORM OraDBMain
READ events
ON ERROR
goApp.Release()
QUIT


DEFINE CLASS AppManager as Custom

   PROTECTED lKilled

   PROTECTED PROCEDURE Init
      This.SetEnvironment()
   ENDPROC
   PROCEDURE Release
      IF NOT This.lKilled
         This.KillEvents()
      ENDIF
      RELEASE This
   ENDPROC
   PROCEDURE Destroy
      This.ReleaseObjects()
      CLEAR DLLS
      ON ERROR
      ON ESCAPE
      CLOSE TABLES
      CLOSE DATABASES
      ON SHUTDOWN
   ENDPROC
   PROCEDURE LogError
      LPARAMETERS tnError, tcMsg1, tcMsg2, tcProg, tnLine
      LOCAL lcString
      lcString = [Error: ] + TRANSFORM(tnError) + VFP_CRLF ;
             + [Msg1 : ] + TRANSFORM(tcMsg1 ) + VFP_CRLF ;
             + [Msg2 : ] + TRANSFORM(tcMsg2 ) + VFP_CRLF ;
             + [Prog : ] + TRANSFORM(tcProg ) + VFP_CRLF ;
             + [Line : ] + TRANSFORM(tnLine ) + VFP_CRLF
      STRTOFILE(lcString, [ErrorLog.txt], 1)
      THIS.KillEvents()
   ENDPROC
   PROTECTED PROCEDURE SetEnvironment
      _screen.Visible =  .F.
      close tables all
      close databases
      close all
      set bell off
      set century on
      set cpdialog off
      set deleted on
      set exclusive off
      set escape off
      set exact off
      set head off
      set hours to 24
      set memowidth to 80
      set multilocks on
      set notify off
      set safety off
      set status off
      set talk off
      set unique off
      clear
      if version(2) = 2
         set escape on
         on escape
      endif
   ENDPROC
   PROCEDURE KillEvents
      CLEAR EVENTS
      This.lKilled = .t.
   ENDPROC
   ...
ENDDEFINE
Mark McCasland
Midlothian, TX USA
Next
Reply
Map
View

Click here to load this message in the networking platform