Como borrar todo el contenido de una carpeta...

[Elias Torres]

Hola a todos...

Quiero borrar todas las tablas que se encuentren en una carpeta concreta. Yo estoy utilizando sin exito la siguiente instrucción.

DELETE file (CURDIR()+'\ventas_temp\*.DBF')

No da error pero no hace nada..

Alguna idea??


Saludos y gracias..

Elías Torres.

[Biel EA6DD]

Prueba con el siguiente código.

Code: Select all  Expand view

aFile:=Directory(CurDir()+'\ventas_temp\*.DBF')
AEval(aFile,{|aFile|CurDir()+'\ventas_temp\+aFile[F_NAME])})


[Antonio Linares]

Biel,

Se te pasó la llamada a FErase():

AEval(aFile,{|aFile| FErase( CurDir()+'\ventas_temp\+aFile[F_NAME] ) } )

[Biel EA6DD]

jaja cierto, y sin el fErase, poco borraremos.

Code: Select all  Expand view

AEval(aFile,{|aFile| FErase( CurDir()+'\ventas_temp'+aFile[F_NAME] ) } )

[Elias Torres]

Gracias Biel y Antonio, lo probaré y les comento....


Saludos.

Elías Torres.

[Elias Torres]

Hola... Bueno comentar que he probado lo que me habeis puesto y ha ido todo sobre ruedas...

Gracias..

Saludos.
Elías Torres.