Clarion - Listar contenido de carpeta

Buen día. alguien sabe como listar el contenido de una carpeta (nombre y extension).para guardarlos en una lista?

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! listar archivos de una carpeta
AllFiles QUEUE(File:queue),PRE(FIL) ! ID:594f9f5b-8565-41d1-95a0-ad35e2064e9e Description: Inherit exact declaration of File:queue
END
LP LONG ! ID:f923728c-8aaa-40aa-a051-324a2c76fea4
Recs LONG ! ID:cc995b90-d502-4419-b91c-382735b10b27
MyLongFile STRING(260) ! ID:836a4d7a-9da4-4589-b8bc-cb0d9c7d711d
MyFile CSTRING(100) ! ID:d3636fc0-8a5c-41ab-98fa-02e603719acd
NoProcesado CSTRING(91) ! ID:aa190582-ff10-4629-90c3-e662523e405a
MySize LONG ! ID:0b937566-27b0-4197-8c17-5f171325ddf5
Extension STRING(3) ! ID:19b95ea2-c24c-4768-a62b-5c8d15978410



DIRECTORY(AllFiles,'C:\Nano\*.*',ff_:DIRECTORY) !Get all files and directories
Recs = RECORDS(AllFiles)
I# = 0
LOOP LP = 1 TO Recs BY 1
GET(AllFiles,LP)

IF BAND(FIL:Attrib,ff_:DIRECTORY) AND FIL:ShortName <> '..' AND FIL:ShortName <> '.'
NoProcesado = LONGPATH('C:\AA\'&FIL:ShortName)
MyFile = FIL:ShortName
MySize = FIL:size
ELSE
DELETE(AllFiles)
Display !Get rid of all other entries
END
IF FIL:ShortName <> '..' AND FIL:ShortName <> '.'
NoProcesado = LONGPATH('C:\Nano\'&FIL:ShortName)
MyFile = FIL:ShortName
MySize = FIL:size
Message ('MySize '&MySize&' NoProcesado '&NoProcesado)
END
END

Gracias Marcelo, resuelto con SQL Server