PEGAR NOMES DOS ARQUIVOS DE UMA PASTA

LIZA 22/01/2014 18:09:24
#433415
Amigos, preciso pegar o nome de todos os arquivos de dentro de uma determinada pasta, por ex:, eu informo o path-pasta

[Ô]C:\arquivos[Ô] , e a partir dai, preciso criar uma rotina que verifique todos os arquivos desta pasta e pegue o nome deles, para jogar em um list por ex:,..teria como pegar os nomes com VB6 ?
FILMAN 22/01/2014 18:36:55
#433416 Resposta escolhida
Tente assim.

Dentro de um módulo coloque essa função

Public Function ListarArquivosListBox(caminho As String, ByRef Lista As ListBox) As Integer

    Dim fso As Object, pasta As Object, arquivo As Object, Arquivos As Object
    Dim Linha As Long
    Dim Num As Integer
    Dim nome As String

    ListarArquivosListBox = 0
    Set fso = CreateObject([Ô]Scripting.FileSystemObject[Ô])

    If Not fso.FolderExists(caminho) Then
        [ô]MsgBox [Ô]A pasta [ô][Ô] & Caminho & [Ô][ô] não existe.[Ô], vbCritical, [Ô]Erro[Ô]
        Exit Function
    End If
    
    Set pasta = fso.getFolder(caminho)
    Set Arquivos = pasta.files
    
    Lista.Clear
    [ô]Linha = 0
    For Each arquivo In Arquivos
        
        nome = Trim(Replace(Replace(arquivo.Path, caminho, [Ô][Ô]), [Ô]\[Ô], [Ô][Ô]))
        Lista.AddItem nome
        [ô]ReDim Preserve VetorArquivo(Linha)
        [ô]VetorArquivo(Linha) = Nome
        [ô]Linha = Linha + 1
    Next
    
    If Lista.ListCount = 0 Then
        ListarArquivosListBox = 1
    Else
        ListarArquivosListBox = 2
    End If

End Function



Para chamar a função:

Coloque em um formulário um LISTBOX e um COMMAND_BUTTON

dentro do botão coloque o seguinte código

call ListarArquivosListBox([Ô]C:\PASTA[Ô], LISTBOX1)



Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar