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

  • Pergunta

  • 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

    domingo, 2 de julho de 2017 17:59

Respostas

  • 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

    • Marcado como Resposta Garde'n FIxion segunda-feira, 3 de julho de 2017 04:18
    segunda-feira, 3 de julho de 2017 04:18

Todas as Respostas

  • 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

    • Marcado como Resposta Garde'n FIxion segunda-feira, 3 de julho de 2017 04:18
    segunda-feira, 3 de julho de 2017 04:18
  • 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.

    terça-feira, 4 de julho de 2017 12:34
    Moderador