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 ;D
Ps seguro estas haciendo algo como:
ListBox1.additem Drive1 & Drive2 & Drive3
Y deberia de ser uno para cada uno. ;)
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...
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 ;D
Yo probe tu codigo que pusiste y me los listo como tu quieres...
Ps ese codigo si funciona. ;)
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
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...
eee!!! ;D.. lo logre... solo es cuestion de haber colocado un For Each en el split para separarlas y listo.... jeje
Nas......recuerda que también tienes el control DriveListBox que te muestra las unidades en una lista con su icono.