Foros del web, para los que viven de bits

Linuxera · 18-nov-2004, 08:32

Hola a todos!!!
A ver, pregunta para nota:
¿por que (piiiii) no me funciona este código?:

Private Sub Drive1_click()
Dim unidad As String

unidad = Drive1.ListIndex
ChDrive (unidad) .
Dir1.Refresh

End Sub

Private Sub Dir1_dblClick()
Dim directorio As String

directorio = Dir1.ListIndex
ChDir (directorio)
File1.Refresh

End Sub

Lo que quiero es que cuando selecciono la unidad de disco (en un driveListBox), automáticamente salgan sus directorios en un dirListBox.
Aparte de este código, que no se si está bien, ¿deben relacionarse las listas de alguna otra manera?
Gracias a los que me contestéis...
Me hareis un hijo de madera como me lo resolvais!!!!!
Saludossssssss

lic_dahool · 18-nov-2004, 08:43

Código:

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

saludos.

Linuxera · 18-nov-2004, 09:04

lic dahool:
Eres chico o chica??
Lo digo porque ME QUIERO CASAR CONTIGO!!!!!! (Yo me llamo María)
jajajaja.....
Muchisisisisisisimas gracias.
Me lo estás resolviendo todo.
No te muevas de ahi, que seguro que tengo más dudas...
Saludossssss

18-nov-2004, 08:32	#1 (permalink)
Linuxera Fecha de Ingreso: noviembre-2004 Mensajes: 45	DriveListBox y DirListBox Hola a todos!!! A ver, pregunta para nota: ¿por que (piiiii) no me funciona este código?: Private Sub Drive1_click() Dim unidad As String unidad = Drive1.ListIndex ChDrive (unidad) . Dir1.Refresh End Sub Private Sub Dir1_dblClick() Dim directorio As String directorio = Dir1.ListIndex ChDir (directorio) File1.Refresh End Sub Lo que quiero es que cuando selecciono la unidad de disco (en un driveListBox), automáticamente salgan sus directorios en un dirListBox. Aparte de este código, que no se si está bien, ¿deben relacionarse las listas de alguna otra manera? Gracias a los que me contestéis... Me hareis un hijo de madera como me lo resolvais!!!!! Saludossssssss

18-nov-2004, 08:43	#2 (permalink)
lic_dahool Fecha de Ingreso: noviembre-2003 Mensajes: 417	Código: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub saludos. __________________ La cantidad total de inteligencia del planeta permanece constante. La población, sin embargo, sigue aumentando. COLE :cool: Los ordenadores no resuelven problemas ... ejecutan soluciones. Laurent Gasser Tienes alguna duda :pensando: ? >>> www.google.com :aplauso: <<< Última edición por lic_dahool; 18-nov-2004 a las 08:44.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

18-nov-2004, 09:04	#3 (permalink)
Linuxera Fecha de Ingreso: noviembre-2004 Mensajes: 45	lic dahool: Eres chico o chica?? Lo digo porque ME QUIERO CASAR CONTIGO!!!!!! (Yo me llamo María) jajajaja..... Muchisisisisisisimas gracias. Me lo estás resolviendo todo. No te muevas de ahi, que seguro que tengo más dudas... Saludossssss