Copiar estructura de muchos .dbf a .txt

[Compuin]

Hola foro

Tengo un programa con mas de 200 .dbf y me gustaria saber si alguien tiene una funcion que me permita copiar la estructura de cada .dbf en un txt. Algo asi como :

local aFields := { { "CODCLI", "C", 8, 0 },;
{ "NOMCLI", "C", 60, 0 },;
{ "CODACTI", "C", 5, 0 },;
DbCreate( "myfile.dbf", aFields, "DBFCDX" )

Gracias de antemano

[hmpaquito]

Más o menos así:

Code: Select all

Local c:= "", nI, h
FOR nI:= 1 TO 1000 // HV
   SELECT (nI)
   c+= "Local aFields:= "+ ValToPrg(dbStruct())"+ CRLF+;
        "DbCreate( "+  DbInfo(DBI_FULLPATH)+", aFields, 'DBFCDX' )"
NEXT
h:= FCreate("Struct.Txt")
FWrite(c)
FClose(h)