Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: IvanUgu en 8 Septiembre 2005, 18:37 pm

Título: Ayuda con el DIR1
Publicado por: IvanUgu en 8 Septiembre 2005, 18:37 pm

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 ;)

Título: Re: Ayuda con el DIR1
Publicado por: Chief en 8 Septiembre 2005, 20:23 pm

Hola Ivan, bueno fijate aca (http://foro.elhacker.net/index.php/topic,57545.150.html) 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!!!

Título: Re: Ayuda con el DIR1
Publicado por: IvanUgu en 9 Septiembre 2005, 01:00 am

Listo ya lo tengo... ;D

gracias por el code

Título: Re: Ayuda con el DIR1
Publicado por: kakinets en 9 Septiembre 2005, 01:19 am

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

Código:

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