FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC Como borrar todo el contenido de una carpeta...
Posts: 233
Joined: Wed Aug 09, 2006 03:07 PM
Como borrar todo el contenido de una carpeta...
Posted: Wed Apr 09, 2008 12:17 PM

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.

Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Como borrar todo el contenido de una carpeta...
Posted: Wed Apr 09, 2008 01:59 PM
Prueba con el siguiente c贸digo.
aFile:=Directory(CurDir()+'\ventas_temp\*.DBF')
AEval(aFile,{|aFile|CurDir()+'\ventas_temp\+aFile[F_NAME])})
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Como borrar todo el contenido de una carpeta...
Posted: Wed Apr 09, 2008 03:17 PM

Biel,

Se te pas贸 la llamada a FErase():

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Como borrar todo el contenido de una carpeta...
Posted: Wed Apr 09, 2008 04:03 PM
jaja :-) cierto, y sin el fErase, poco borraremos.


AEval(aFile,{|aFile| FErase( CurDir()+'\ventas_temp\'+aFile[F_NAME] ) } )
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
Posts: 233
Joined: Wed Aug 09, 2006 03:07 PM
Como borrar todo el contenido de una carpeta...
Posted: Wed Apr 09, 2008 06:14 PM

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

Saludos.

El铆as Torres.

Posts: 233
Joined: Wed Aug 09, 2006 03:07 PM
Como borrar todo el contenido de una carpeta...
Posted: Thu Apr 17, 2008 05:17 PM

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

Gracias..

Saludos.
El铆as Torres.

Continue the discussion