Ayuda con el DIR1

[IvanUgu]

Como hago para que al poner en un text "C:\" me aparescan en algun list todas las carpetas que estan en ese direcotio ???

He probado, pero no lo consegui todavia, lo que si pude hacer es para mirar los archivos (sin carpetas)

Es que estoy acciendo un tipo de explorador remoto pero solo logro visualizar los archivos

gracias de antemano

[Chief]

Hola Ivan, bueno fijate aca es la primer respuesta, es un ejemplo de como hacerlo con una aplicacion cliente servidor.


PD.: En el server es ovio que tenes que agregar un Drive, Dir y file box, y en el cliente un listbox. Analisalo un poco al code de hay podes sacar lo que vos queres hacer.

Salu2!!!

[IvanUgu]

Listo ya lo tengo... 

gracias por el code

[kakinets]

Lo Saque chiqi...Estuve 2 hora ...jajaj

Código [Seleccionar] Expandir


Dim file As Variant
Dim dir As Variant
File1.Refresh
Dir1.Refresh
On Error GoTo a
File1.Path = Text1.Text
For file = 1 To File1.ListCount - 1
Text2.Text = Text2.Text & File1.List(file) & vbCrLf
Next
Dir1.Path = Text1.Text
For dir = 1 To Dir1.ListCount - 1
Text3.Text = Text3.Text & Dir1.List(dir) & " " & vbCrLf
Next
a:


Suerte