Olá para todos!!!

Óia eu aki dinovu!!! hehehe

 

Pessoal,

 

Gostaria de listar todos os arquivos de um diretório mas com critérios, tipo que nem uma SQL. Por exemplo: gostaria de listar todos os arquivos de um determinado diretório onde a data da ultima modificação de todos os arquivos seja maior que a data que eu informar!!!

 

Tem como?

 

Desde já agradeço.

André

Olá, tente isso:

 

    Dim Arquivo As String
   
    ChDir "c:windows"
    Arquivo = Dir("C:Windows*.*", vbArchive)
   
    Do While Arquivo <> ""
        If FileDateTime(Arquivo) > CDate("01/01/2001") Then
            List1.AddItem Arquivo
        End If
        Arquivo = Dir
    Loop

Altere o código de acordo com a sua necessidade. Aqui eu uso uma ListBox para exibir os nomes dos arquivos, mas você pode fazer de outro modo.

 

Um abraço,

Sandro.