Jump to content
Sign in to follow this  
lmrssantos

Listbox com listagem de ficheiros até 3 dias

Recommended Posts

lmrssantos

Bom dia a todos.

Estou com um pequeno problema.

tenho um código em vb num formulário, onde a função do mesmo, é retornar uma listagem de ficheiros de texto que vão sendo criados á medida.

Os mesmos são criados com a data EX: "2009-07-01 - Teste - 2015-06-30.txt" ; "2015-07-01 - Teste - 2015-06-30.txt"

Como já existem bastantes ficheiros no sistema, queria saber se existe possibilidade de, criar uma variável que me permita listar na listbox, apenas os ficheiros do dia atual até um máximo de 3 dias no futuro, isso é, procurando no nome do ficheiro nas primeiras 10 cadeias de caracteres e comparar com a data atual, adicionando depois mais 3 dias.

o código que vai buscar o ficheiro para o apresentar na listbox é o seguinte:

Public Sub comando()

Dim Diretorio As New IO.DirectoryInfo(Path)

If Diretorio.Exists = False Then

IO.Directory.CreateDirectory(Path)

End If

Dim ListaFicheiros() As IO.FileInfo

Dim Ficheiro As IO.FileInfo

ListaFicheiros = Diretorio.GetFiles("*.TXT")

Form1.LB_Rel.Items.Clear()

For Each Ficheiro In ListaFicheiros

Form1.LB_Rel.Items.Add(Ficheiro.Name)

Next

End Sub

Share this post


Link to post
Share on other sites
FreiNando

Visto a quantidade de dias ser baixa, podes percorrer os dias e listar os ficheiros que contenham esse dia no nome:

   Public Sub comando()
    Dim Diretorio As New IO.DirectoryInfo(Path)
    If Diretorio.Exists = False Then
	    IO.Directory.CreateDirectory(Path)
    End If
    Dim ListaFicheiros() As IO.FileInfo
    Dim Ficheiro As IO.FileInfo
    Form1.LB_Rel.Items.Clear()
    Dim D As Date = Today
    For I As Integer = 0 To 3
	    ListaFicheiros = Diretorio.GetFiles(D.ToString("YYYY-MM-DD") & "*.TXT")
	    For Each Ficheiro In ListaFicheiros
		    Form1.LB_Rel.Items.Add(Ficheiro.Name)
	    Next
	    D = DateAdd("d", 1, D)
    Next
   End Sub

  • Vote 1

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.