Listar todos os nomes de arquivos no diretório
O código a seguir é uma sub-rotina que obterá os nomes de todos os arquivos que estão presentes em um caminho de diretório:
Sub List_All_The_Files_Within_Path () Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C: Meus Documentos" Row_No = 36 'Lista todos os arquivos no diretório atual com Application.FileSearch .NewSearch .LookIn = File_Path. .Filename = "*. *" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count Para kk25 = 1 Para No_Of_Files Planilhas ("Planilha1"). Células (kk25 + 5, 15) .Value = .FoundFiles (kk25) Próximo kk25 End With End Sub
Ele gravará os nomes dos arquivos na Folha1 na coluna O - começando na linha 36
Baixe o arquivo do Excel aqui
