ayuda con un listbox...

[Proxy Lainux]

hola

una pregunta rapida... estoy haciendo un programa donde puedo ver que unidades tengo en mi computadora con un listbox y si coloco un usb, se detecta y se agrega tambien en el listbox... pero cuando hago eso... me aparecen asi..

A:C:E:

y me gustaria hacer que en el listbox... me aparecieran asi...

A:
C:
E:

como lo hago?..

espero su respuesta... gracias 

[Freeze.]

Ps seguro estas haciendo algo como:

Código (vb) [Seleccionar] Expandir


ListBox1.additem Drive1 & Drive2 & Drive3


Y deberia de ser uno para cada uno.

[Proxy Lainux]

hola

estoy haciendo esto... y solo me falta separar las unidades.. intente con split.. pero solo puedo separar las dos primeras unidades que tengo pero la tercera unidad... no puedo hacer que aparezca... a ver si alguien me puede ayudar... el programa te busca las unidades que tienes... pero como les decia me aparecen en linea.. y quiero que me aparezcan separadas...

Código [Seleccionar] Expandir


Private Declare Function GetLogicalDrives Lib "kernel32" () As Long



Private Sub Form_Load()

Dim i As Long

Dim unidad As Long

Dim discos As String, dico As String

Dim spli() As String

unidad = GetLogicalDrives()

If unidad Then

For i = 0 To 10

If (unidad And 2 ^ i) <> 0 Then

disco = disco & Chr$(i + 65) & ":" & "-"

spli = Split(disco, "-")

discos = spli(0)

dico = spli(1)

End If

Next

List1.AddItem discos

List1.AddItem dico

End If

End Sub


espero su respuesta

gracias 

[naderST]

Yo probe tu codigo que pusiste y me los listo como tu quieres...

[Freeze.]

Ps ese codigo si funciona.

[Proxy Lainux]

pues el codigo si funciona... pero yo tengo 3 unidades... y solo logro colocar 2 de ellos.. porke el tercero en el split me aparece que esta fuera de intervalo... supuestamente tendria que hacer algo asi..

discos = spli(0)
dico = spli(1)
di=spli(2)

y con esto me tendria que poner en list.. asi

A:
C:
E:

pero no puedo.. solo puedo colocar asi

A:
C:

y E:..  supuestamente tendria que venir en di=spli(2)... pero ahi es cuando me dice que esta fuera de intervalo...

y todavia me falta colocar mas splits para las unidades extraibles... pero al parecer la ultima letra de alguna unidad no podre colocarla porke algo falta hacer.. y por eso keria saber como le hago para que todas las unidades se coloken en un listbox y separadas

[Proxy Lainux]

pues creo que no funciona el codigo.. coloke un usb para aumentar las letras de las uniddes.. y asi ver si E ahora si se colocaba.. y ni asi se puede...

alguien sabe otra forma de separar las unidades...

[Proxy Lainux]

eee!!!  .. lo logre... solo es cuestion de haber colocado un For Each en el split para separarlas y listo.... jeje

[Chefito]

Nas......recuerda que también tienes el control DriveListBox que te muestra las unidades en una lista con su icono.