Script Listar Arquivos de uma Pasta Específica

Script Listar Arquivos de uma Pasta Específica: Sub listar_arquivos_e_pastas() Dim fso As Object Dim folder As Object Dim file As Object Dim linha As Integer linha = 1 Set fso = CreateObject("Scripting.FileSystemObject") iCaminho = "C:\Users\ivair\Desktop\Piauí\" Set folder = fso.GetFolder(iCaminho) Range("A1:A100000").ClearContents For Each file In folder.subfolders Cells(linha, 1) = file.Name linha = linha + 1 Next file For Each file In folder.Files Cells(linha, 1) = file.Name linha = linha + 1 Next file End Sub