erase files - Resolved!!

[Silvio.Falconi]

Who created the cdx files. Which user account.

I created the files cdx with account administrator , It Is the last One account on my PC

[solving]

LOCAL xPath := "C:\PDF\"

* --- Elimina File che Iniziano con CLI_...PDF
AEVAL(DIRECTORY(xPath + "CLI_*.PDF"),{|aFile|FERASE(xPath + aFile[F_NAME])} )


nel tuo comando :
cFILE := ALLTRIM( aDIR[i][1] )

fai un display della variabile cFILE se comprende il path completo + \ , es. c:\mydir\temp2.cdx o vedi solo temp2.cdx

[Silvio.Falconi]

Ho messo un trace msginfo(ferror,cfile)
Tutti e due i messaggi viene visualizzato l'errore 5 , il primo mi dà "." e il secondo ".." è sta cosa che non ho capito.

[Otto]

Insert a msginfo() before you delete the files and check with "Resource Monitor" the "Assoiated Handles" of your file.

Open the Start menu, type "Resource Monitor" and press Enter.
Switch to the "CPU" tab.
Expand the "Associated Handles" section in the lower panel.
In the search field of the "Associated Handles" section, enter the name of the file you want to check. If the file is being used, it will appear in the list along with the process using it.

[solving]

la sintassi :
aDir := DIRECTORY(cDir+ "*.*", "D" )
include nell'array anche i "." e ".."
aDIR[1,1] = "."
aDIR[2,1] = ".."

se usi :
aDir := DIRECTORY(cDir+ "*.*" ) , non verranno inglobati "." e ".."

se usi il parametro "D" allora devi controllare il contenuto dell'array

IF cFile <> "." .OR. cFile <> ".."

IF FErase(cDir+cFile ) != 0
? FERROR()
ENDIF

ENDIF

consiglio 1 : senza parametro "D"
consiglio 2 : metti il path -> cDir + cFile

[Silvio.Falconi]

ecco dov'era l'errore il parametro D

static Function Cancella_Archivi(cDir)
local adir := DIRECTORY(cDir+ "*.*" )
local i,cFile

FOR i = 1 to LEN( aDir )
cFILE := ALLTRIM( aDIR[i][1] )
IF FErase(cDir+cFile ) != 0
Msginfo( FERROR() ,cfile)
endif
NEXT
return nil