COMBOBOX COM ARQUIVOS EXPECIFICO DE UMA PASTA

FAUZE 28/11/2011 15:03:46
#390187
Olá pessoa,

Preciso popular um combobox com arquivos expecifico de uma pasta, peguei um exemplo aqui no forum e fiz uma alteração para atender minha necessidade, mas não funciona, alguem teria uma sugestão?

Rotina origonal:

  Dim Arquivo As String
Arquivo = Dir$([Ô]Caminho\*.mdb[Ô])

While Arquivo <> Empty
   Combo1.AddItem Arquivo
   Arquivo = Dir$
Wend


Alterei para:

  Dim Arquivo As String
Arquivo = Dir$(Dir1.Path & [Ô]\*.xml[Ô])

   While Arquivo <> Empty
      If Dir$ Like [Ô]-nfe[Ô] Then
         Combo1.AddItem Arquivo
      End If
      Arquivo = Dir$
   Wend

Preciso somente os arquivos que contenha [Ô]-nfe[Ô] no nome.
KERPLUNK 28/11/2011 15:17:35
#390188 Resposta escolhida
Que eu saiba, no VB6 já tem um controle específico pra isso, o FileListBox. Você pode setar ele para a pasta que quiser, percorrer os ítens dele adicionando num combo...
Tópico encerrado , respostas não são mais permitidas
Voltar