none
listar arquivos em access RRS feed

  • Pergunta

  • Gente, eu já procurei no forum mas não encontrei.

    Por favor, alguém me ajude.

    Eu preciso listar apenas os arquivos do tipo "doc" ou "docx" apenas.

    Meu código é:

    Public Function ListaArquivos(ByVal Caminho As String) As String()

    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

    quarta-feira, 17 de fevereiro de 2016 18:46

Respostas

Todas as Respostas