lista de carpetas

[dadadada]

wenas!
lo q necesitaria es q me digan como puedo hacer para generar una lista con carpetas y archivos q se encuentran en determinado directorio..... lo necesito para un programa al estilo troyano, con el control winsock.... me gustaria q desde el cliente , con un dir y un file box , yo pueda visualizar los dir y archivos del servidor........

desde ya gracias...

Lord Cronos

[DrakoX]

mm...
ganas de buscar no tenes por lo que veo  ,
entonces yo tampoco tengo ganas de ayudarte 
si t fijast en el foro vas a encontrar un code que realizé, que hace exactamente eso, listar las carpetas de un directorio,
el de listar los archivos no esta, así que te dejo este q hice hace ya un tiempo:

Código [Seleccionar] Expandir

'Agregar la referencia Microsoft Scripting Runtime
Dim Archivos As New Collection
Dim Fso As New FileSystemObject

Private Sub Listar_Archivos()
For Each i In Carpetas
    For Each j In Fso.GetFolder(i).Files
        Archivos.Add (j)
        DoEvents
    Next
Next
End Sub

este code para que funcione,
va de la mano con otro que postie hace muy poco,
para ser mas exacto, Hoy mismo.

salu2 y vamos a ver si empiesas a buscar