fbpx

Perguntaram se via VBA é possível listar os arquivos de determinado dirétorio e lista-los com seu respectivo nome e data de modificação,bastando apenas indicar o local.Procurei pela net e encontrei um código muito legal e de grande utilização pronto para ser aplicado em seus projetos.Veja:

Sub ListDirectory()
Dim Msg As String
Dim rw As Long
Dim i As Long
Dim sDir As String
Msg = InputBox(“Escolha o Path:”)
sDir = Msg

If Len(Trim(Msg)) = 0 Then
  MsgBox “Não seleccionou nada . . .”
  Exit Sub
End If

With Application.FileSearch
    .NewSearch
    .LookIn = sDir
    .SearchSubFolders = True
    .FileName = “*.*”
    .FileType = msoFileTypeAllFiles
    rw = 2
    If .Execute() > 0 Then
    Sheets(“Sheet1”).Range(“A:A”).Clear

        For i = 1 To .FoundFiles.Count
            Sheets(“Sheet1”).Cells(rw, “A”).Value = Dir(.FoundFiles(i))
            Sheets(“Sheet1”).Cells(rw, “B”).Value = FileDateTime(.FoundFiles(i))
            rw = rw + 1
        Next i
    Else
        MsgBox “Não foram encontrados ficheiros”
    End If
End With
Sheets(“Sheet1”).Cells(1, 1).Value = “Nome do Ficheiro”
Sheets(“Sheet1”).Cells(1, 2).Value = “Data/Hora”
Columns(“A:B”).AutoFit
End Sub

Copie e utlize.Agora ficou fácil listar seus arquivos e diretórios.

fonte: Exceler

 

Boa noite! =)

FV

caso você tenha alguma dúvida ou sugestão envie para nós:

[email protected]

Siga-Me

Nossas Redes Sociais

Facebook
Linkedin
Instagram
Youtube