Usa esta funcion ADIR(aArreglo,"d:\carpeta\archivo.dbf")
donde:
?aArreglo[1,1] es el nombre del archivo
?aArreglo[1,2] es su tamaño
?aArreglo[1,3] representa su fecha
?aArreglo[1,4] la hora
?aArreglo[1,5] los atributos que posee
Se que hay una funcion con sys() que hace eso pero, en este momento no recuerdo el numero, es mas simple que estar escribendo tanto codigo complicado. Si lo averiguo mañana lo publico.