Page 1 of 1

Como borrar todo el contenido de una carpeta...

Posted: Wed Apr 09, 2008 12:17 pm
by 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.

Posted: Wed Apr 09, 2008 1:59 pm
by Biel EA6DD
Prueba con el siguiente código.

Code: Select all

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

Posted: Wed Apr 09, 2008 3:17 pm
by Antonio Linares
Biel,

Se te pasó la llamada a FErase():

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

Posted: Wed Apr 09, 2008 4:03 pm
by Biel EA6DD
jaja :lol: cierto, y sin el fErase, poco borraremos.

Code: Select all

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

Posted: Wed Apr 09, 2008 6:14 pm
by Elias Torres
Gracias Biel y Antonio, lo probaré y les comento....


Saludos.

Elías Torres.

Posted: Thu Apr 17, 2008 5:17 pm
by Elias Torres
Hola... Bueno comentar que he probado lo que me habeis puesto y ha ido todo sobre ruedas...

Gracias..

Saludos.
Elías Torres.