Criar labels de acordo com quantidade de arquivos em uma pasta organizado por ultima criação

Question

Boa tarde,

Eu tenho um form q carrega labels em um painel para cada pasta que tem dentro de um diretorio, mas

Preciso que essas labels sejam criadas conforme a data de criação das pastas

Eu tenho esse código

 For Each PastaModulos In New DirectoryInfo(Application.StartupPath & "\list_dir\" & Text).GetDirectories
            'Cria item no menu de módulos
            Dim moduleitem As Label = New Label
            moduleitem.Dock = DockStyle.Left
            moduleitem.Padding = New Padding(5, 0, 0, 0)
            moduleitem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(121, Byte), Integer), CType(CType(144, Byte), Integer), CType(CType(155, Byte), Integer))
            moduleitem.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular)
            ContarPastasMaterias = ContarPastasMaterias + 1
            moduleitem.Name = String.Format("Materia{0}", ContarPastasMaterias) ' da um nome para o controle
            moduleitem.Text = PastaModulos.Name.ToUpper
            moduleitem.AutoSize = True
            moduleitem.Cursor = Cursors.Hand
            moduleitem.Dock = DockStyle.Top


            'Cria o label dentro do panel24
            Me.listmodulos.Controls.Add(moduleitem)


            'Executa MouseEvents no label da matéria
            AddHandler listmodulos.Click, AddressOf ModuloFuncao_Click
            Application.DoEvents()
        Next

e tenho esse

 Dim listararquivos = (From q As IO.DirectoryInfo In New IO.DirectoryInfo(Application.StartupPath & "\list_dir\").GetDirectories Order By q.CreationTime Descending).ToArray

Mas não sei como encaixa-lo

Answer 1

Resolvi, bastou que eu incluísse o código em negrito na seguinte linha:

 For Each PastaMaterias In New DirectoryInfo(Application.StartupPath & "\list_dir\").GetDirectories.OrderByDescending(Function(x) x.LastWriteTime).Select(Function(x) x.Name).ToArray

Answer 2

Bom dia, Garde'n FIxion.

Obrigado por usar o Fórum MSDN.

Que bom que conseguiu resolver o que precisava.

Atenciosamente,

---

Filipe B de Castro

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.