Usuário com melhor resposta
Criar labels de acordo com quantidade de arquivos em uma pasta organizado por ultima criação

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
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
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
-
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.