Grupo Excelmax
segunda-feira, 26 de setembro de 2022
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
Página inicial
Assinar:
Postagens (Atom)