Lista de arquivos em um Listbox

Você precisa mostrar uma lista de arquivos com uma máscara específica em suas aplicações ? Utilize as classes CharacterArray, Filename, Listbox e mãos à obra. Siga passo-a-passo o exemplo a seguir e ofereça mais esse recurso em suas aplicações:

- Vamos utilizar vocabulários. Portanto, copie o arquivos de definição de vocabulários do Dialog System na primeira linha do seu programa:

copy dslang.cpy.

- Defina as seguintes classes, na class-control:

class-control.
....CharacterArray is class "chararry"
....Filename is class "filename"
....Listbox is class "listbox".

- Na working-storage section, defina as variáveis que serão utilizadas:

working-storage section.
77 handle8 pic 9(08) comp-x value zeros.
77 handle9 pic 9(09) comp-5 value zeros.
77 umaMascara object reference value null.
77 umaColecao object reference value null.
77 umListbox object reference value null.

- Esse exemplo requer que você tenha um listbox na janela de sua aplicação. Em nosso exemplo, o listbox foi definido na GS com o nome LB-ARQUIVOS. É nele que será colocada a lista de arquivos. Depois que a window de sua aplicação for criada, capture o listbox utilizando um método da classe Listbox:

CapturarListbox section.
....move-object-handle lb-arquivos handle8
....move handle8 to handle9
....invoke Listbox "fromHandleWithClass" using handle9 Listbox
...........returning umListbox

- Depois de capturado o listbox, vamos criar então a coleção de arquivos com uma determinada máscara e em seguida setar a coleção no objeto listbox:

CriarColecaoDeArquivos section.
....invoke CharacterArray "withValue" using z"c:\windows\*.bmp"
...........returning umaMascara
....invoke Filename "expandWildCards" using umaMascara
...........returning umaColecao
....invoke umListbox "setContents" using umaColecao
....invoke umaColecao "deepFinalize" returning umaColecao
....invoke umaMascara "finalize" returning umaMascara

Seguindo esse mesmo exemplo, você pode mudar a máscara de arquivos e mostrar outras listas, de acordo com a sua necessidade.