locked
Selecionar arquivo ,apos lista gerada RRS feed

  • Pergunta

  • Pessoal,

    Preciso de ajuda para finalizar o codigo abaixo,  cmo faço para realizar a importação de um arquivo TXT ( Selecionado). Após gerado a lista dos arquivos disponiveis.

     

     

     

     

    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
    result.Select

       


    ErrHandler:
        Set FSO = Nothing
        Set Pasta = Nothing
        Set Arquivo = Nothing
       
       
       
    End Function

    terça-feira, 14 de outubro de 2008 13:35