error with Harbour and Windows 7

[ukservice]

Hi,


When using an application in a folder different that Program Files,
such as Desktop, sometimes I get this error:


Error description: Error DBCMD/2001 WORKAREA NOT IN USE: ORDLISTADD


Stack Calls
===========
Called from: => ORDLISTADD( 0 )
Called from: ../../../rddord.prg => DBSETINDEX( 0 )
Called from: H:\spa\files.PRG => Openfiles( 108 )

Code: Select all  Expand view

openfiles.prg:
====================
 LOCAL pPath := ".\"
 [...]

           SELECT 7
lin 108 USE (pPath+"\NOTES") NEW

What is wrong?. Thanks.

[Rick Lipkin]

Hope this helps .. I always query the location where the .exe starts up and then use that as my Set Defa ... path ..

Consider this code ..

Code: Select all  Expand view

// where .exe started from is default directory //
cFILE    := GetModuleFileName( GetInstance() )
cSTART := RAT( "\", cFILE )
cDEFA   := SUBSTR(cFILE,1,cSTART-1)

SET DEFA to ( cDEFA )

// if data is located in the same folder as the executable

Select 7
Use ( cDefa+"\Data\User.dbf" )

// or if data is located backwards

Select 7

Use ( cDefa+"..\data\User.dbf" )

The above code works whether you access the .exe via unc or a mapped drive.

Rick Lipkin

[ukservice]

Thank you very much.

Also, Harbour now provides HB_DIRBASE().