[Resolvido] Carrega subpastas no listbox

[POLACK 0]

Salve galera, sou novo no forum e to iniciando no VB, eu li em um topico uma procedure que ensinava carregar subdiretorios em um listbox, to procurando aqui desde as 9 da manha e não to achando, deve ter sido apagado, se alguem puder me ajudar eu agradeço muito.

 

Achei galera!

 

A rotina é do Scorpio.

 

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

[scorpio 7]

:lol:

 

Nem eu lembrava disso...

 

 

Resolvido!