DELETE FILE issue

[TimStone]

In my application I have a program to recreate indexes for all of my files. Here is a sample code:

Code: Select all  Expand view

    DELETE FILE evemnt.cdx
    oDB := tdata():new(, "evemnt",, .f. )
    IF oDB:use()
        oDB:createIndex( "evemnt", "upper(vehlic)",,, .t., 10 )
    ENDIF
    oDB:close()
 

The strategy is to delete the existing CDX file, and then re-create a new one. It has worked well for many years. Recently, apparently the DELETE FILE command is not working. If the CDX is corrupted, it won't reindex and it will fail.

Here is my question. Doesn't DELETE FILE honor the DEFAULT PATH or do I actually need to specify the full path ?

Tim

[Enrico Maria Giordano]

From Clipper NG:

SET DEFAULT and SET PATH do not affect DELETE
FILE. The file is deleted from disk only if found in the current DOS
directory or in the directory explicitly specified as part of the
filename.

EMG

[TimStone]

I suspected that ... so I modified the code ...

[Rick Lipkin]

Tim

Why not use Ferase() ??

Code: Select all  Expand view

// put at the top of your Main() program
// where .exe started from is default directory //

cFILE  := GetModuleFileName( GetInstance() )
nSTART := RAT( "\", cFILE )
cDEFA  := SUBSTR(cFILE,1,nSTART-1)

SET DEFA to ( cDEFA )

...
...

//--------------
Func YourFunction()

cDefa := set(7) // gets default file location from app if you specified Set Defa to ...  in your app.

Frease( cDefa+"\Your.Cdx" )

 

Rick Lipkin

[TimStone]

Rick,

It wasn't a problem ... just had not included the path.

Now using:

DELETE FILE ( cPath + "abc.cdx" )

cPath is the default folder and it is a public defined at startup.

Tim