LOcal a
a = ''
DECLARE INTEGER GetPrivateProfileString IN Win32API  AS GetPrivStr ;
  String cSection, String cKey, String cDefault, String @cBuffer, ;
  Integer nBufferSize, String cINIFile

LOCAL lcBuffer, ;
      lcOldError, ;
      lcPath, ;
      lnCycle, ;
      lnSpeed, ;
      llError, ;
      lnCommaPos, ;
      lcEntry 

lcPath = ''
lcBuffer = SPACE(100) + CHR(0)
lcOldError = ON('ERROR')
IF GetPrivStr("ShopsPath", "Path", "", ;
               @lcBuffer, LEN(lcBuffer), ;
               CURDIR() + 'app.ini') > 0
  ON ERROR llError = .T.
  lcPath  = lcBuffer
  
  ON ERROR &lcOldError
	IF !llError
		pMyPath = lcPath
	ENDIF
ENDIF
b = 'DB1.DBC'
c = pMyPath + b

WAIT WINDOW c