The following method allows you to store in a record the name and icon of each document that resides in the selected folder.



C_LONGINT($MaxSize)

C_TEXT($Folder)



$Folder:=Select folder

ARRAY TEXT($ArrDoc;0)

DOCUMENT LIST($Folder;$ArrDoc)



$MaxSize:=Size of array($ArrDoc)

For ($i;1;$MaxSize)



 CREATE RECORD([Table 1])



 [Table 1]Doc:=$ArrDoc{$i}



 GET DOCUMENT ICON($Folder+$ArrDoc{$i};[Table 1]Icon;32)



 SAVE RECORD([Table 1])

End for