Dirlistbox e Combobox

[Pinguimbera 0]

Bom dia!

 

Gostaria de saber como faço para pegar os itens de uma Dirlistbox e inserir em uma ComboBox?

 

Explicando melhor...:

 

Tenho uma ComboBox. Ela irá receber em sua lista, o nome de todas as pastas que está aparecendo na Dirlistbox.

A Dirlistbox já está direcionada à uma certa pasta (Dir1.path = "c:\teste").

 

Como fazer isto?

Abraços

[scorpio 7]

O que eu consegui fazer aqui foi assim, voce esta em 'C:/Teste', dentro de teste tem 'P1','P2','P3', eu consegui pegar 'P1','P2','P3'

 

For i = 0 To d.ListCount - 1
	Combo1.AddItem d.List(i)
Next

[Pinguimbera 0]

Tipo muito obrigado pelop codigo funcionou mas ficou com o diretorio no combobox tipo c:\teste\pasta\Jogos

tem como ficar no combobox só assim:

Jogos

Aplicativos

?

 

 

Abraços

[scorpio 7]

Tem sim

 

For i = 0 To Dir1.ListCount - 1
	x = Dir1.List(i)
		While (InStr(1, x, "\") > 0)
			x = Mid(x, InStr(1, x, "\") + 1, Len(x) - InStr(1, x, "\"))
		Wend
	Combo1.AddItem x
Next

[Pinguimbera 0]

Amigão!! Tá de parabéns!! Abraços!