Olá, estou aqui para tentar de ajudar.
Tente fazer isto no seu Projeto.
'Insira em seu projeto, 1 CommandButton, 1 Label, 1 RichTextBox, e 1 FileListBox
'Copie este código e ponha em seu Projeto
Private Sub Command1_Click()
File1.Path = "C:Windows"
File1.Pattern = "*.*"
On Error GoTo erros
Dim counter As Integer
For counter = 0 To 100
RichTextBox1.filename = File1.Path & "" & File1.List(counter)
Label1.Caption = File1.Path & "" & File1.List(counter)
Label1.Refresh
Next counter
Exit Sub
erros:
End Sub
Em caso de problemas ou dúvidas entre em contato comigo que irei te fornecer o PROJETO.VBP para você.
Até mais,
Atenciosamente,
Marcus Vinícius
Se quiser entrar em contato comigo me envie um e-mail para
Msmarcus@hotmail.comQue em breve estarei entrando em contato contigo.