Inquiridor
Exibir nomes de arquivos de uma pasta

Pergunta
-
Todas as Respostas
-
Public Function ListaArquivos(ByVal Caminho As String) As String() 'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime Dim FSO As New FileSystemObject Dim result() As String Dim Pasta As Folder Dim Arquivo As File Dim Indice As Long ReDim result(0) As String If FSO.FolderExists(Caminho) Then Set Pasta = FSO.GetFolder(Caminho) For Each Arquivo In Pasta.Files Indice = IIf(result(0) = "", 0, Indice + 1) ReDim Preserve result(Indice) As String result(Indice) = Arquivo.Name Next End If ListaArquivos = result ErrHandler: Set FSO = Nothing Set Pasta = Nothing Set Arquivo = Nothing End Function
Anderson Diniz
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:41
-
Private Sub Listar() Dim linha As Long Dim arquivos() As String Dim lCtr As Long arquivos = ListaArquivos("C:\temp") For lCtr = 0 To UBound(arquivos) linha = 1 While ThisWorkbook.Sheets("Planilha1").Cells(linha, 1) <> "" linha = linha + 1 Wend ThisWorkbook.Sheets("Planilha1").Cells(linha, 1) = arquivos(lCtr) Next End Sub
Anderson Diniz
- Editado AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 19:43
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
-
Anderson Diniz
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
-
Anderson Diniz
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
-
Anderson Diniz
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
-
Já testei e funcionou. Favor marcar como respondido.
Anderson Diniz
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
-
Anderson Diniz
- Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40