Clarion - Listar contenido de carpeta

 
Vista:

Listar contenido de carpeta

Publicado por Cristian Canteros (136 intervenciones) el 10/12/2021 12:47:01
Buen día. alguien sabe como listar el contenido de una carpeta (nombre y extension).para guardarlos en una lista?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Listar contenido de carpeta

Publicado por Marcelo Madelón (341 intervenciones) el 16/12/2021 00:21:28
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 14
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Listar contenido de carpeta

Publicado por Cristian (136 intervenciones) el 23/12/2021 00:27:31
Gracias Marcelo, resuelto con SQL Server
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar