FoxPro/Visual FoxPro - existe algun comando que........

Existe algun comando que me permita borrar todos los registros de todas las toda una base de datos, o sea ponerla vacia o como haria, gracias de antemano

DIMENSION arreglo[1,5]
ADIR(arreglo,"*.dbf")
FOR i=1 TO ALEN(arreglo,1)
tabla = alltrim(arreglo[1,5])
USE &tabla AGAIN ALIAS mitabla
SELEC mitabla
DELETE ALL


ENDFOR