Mensajes

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

no, denada,
pa esto estamos jeje  ,
si no te funciona,
es porque me olvide de mencionarte que hay que agregar la referencia: microsoft scripting runtime

salu2 y suerte

si no me equivoco,
en el 2005, podes programar .net,
y para compilar necesitas el . net framework 2.0,
y no se si no lo necesitas tener instalado en la pc donde el programa se ejecuta, eso podria ser una contra ya que no todos poseen el framwwork aun.

salu2

én ese mismo post,
Robokop puso su propio code,
y yo lo optimize, para que quede con menos lineas,
y sea mas eficiente.
el code me quedo así

Código [Seleccionar] Expandir


Dim Fso As New FileSystemObject 'Se Declara el Objeto
Dim Carpetas As New Collection ' Se declara la nueva colección donde estara la Lista de Carpetas

Private Sub Reproducción(Path As String) 'La variable Path determina donde buscar, ej: "C:\","C:\Archivos de Programa\"
If Fso.GetFolder(Path).SubFolders.Count = 0 Then: Exit Sub 'Si no hay sub carpetas sale de la función
For Each i In Fso.GetFolder(Path).SubFolders 'A Cada Sub Carpeta del Path se le hace lo siguiente:
    Carpetas.Add (i) ' Se agrega en la Colección llamada Carpetas
    DoEvents 'Se pone esto, para que no se cualgue la PC
    Reproducción (i) 'Esto es la Recursividad, que a cada sub carpeta se le hace este mismo Proceso
    Next 'Proxima Subcarpeta
End Sub

Te puse comentarios,
para que no te quede ninguna duda y quede todo bien claro.

salu2

hola,
yo publique en otro foro un par de codigos que  hice que se podrian poner en algun worm o algo,
estoy seguro que te van a servir.

Codigos


salu2 y suerte

Lo mas importate es sentir que lo que haces te gusta y te divierte,
hay que tener mucha paciencia  y muchas ganas.

algo escencial que se necesita es ver muchos codigos de diferentes cosas, así fue como aprendi yo, sin leer ningun manual, solo viendo codigos.

salu2 y suerte

supongo que posione significa posicione jeje

si no me equivoco eso se hace cn el mousemove de cada control.

salu2

me alegro que t sirva,
espeor ver el code pronto

salu2

La api que permite enviar clicks se llama: mouse_event

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

· dwFlags
A set of flag bits that specify various aspects of mouse motion and button clicking. The bits in this parameter can be any reasonable combination of the following values:
MOUSEEVENTF_ABSOLUTE
Specifies that the dx and dy parameters contain normalized absolute coordinates. If not set, those parameters contain relative data: the change in position since the last reported position. This flag can be set, or not set, regardless of what kind of mouse or mouse-like device, if any, is connected to the system. For further information about relative mouse motion, see the following Remarks section.
MOUSEEVENTF_MOVE
Specifies that movement occurred.
MOUSEEVENTF_LEFTDOWN
Specifies that the left button changed to down.
MOUSEEVENTF_LEFTUP
Specifies that the left button changed to up.
MOUSEEVENTF_RIGHTDOWN
Specifies that the right button changed to down.
MOUSEEVENTF_RIGHTUP
Specifies that the right button changed to up.
MOUSEEVENTF_MIDDLEDOWN
Specifies that the middle button changed to down.
MOUSEEVENTF_MIDDLEUP
Specifies that the middle button changed to up.
MOUSEEVENTF_WHEEL
Windows NT only: Specifies that the wheel has been moved, if the mouse has a wheel. The amount of movement is given in dwData

The flag bits that specify mouse button status are set to indicate changes in status, not ongoing conditions. For example, if the left mouse button is pressed and held down, MOUSEEVENTF_LEFTDOWN is set when the left button is first pressed, but not for subsequent motions. Similarly, MOUSEEVENTF_LEFTUP is set only when the button is first released.

· dx
Specifies the mouse's absolute position along the x-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse's actual x-coordinate; relative data is given as the number of mickeys moved. A mickey is the amount that a mouse has to move for it to report that it has moved.

· dy
Specifies the mouse's absolute position along the y-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse's actual y-coordinate; relative data is given as the number of mickeys moved.

· dwData
If dwFlags is MOUSEEVENTF_WHEEL, then dwData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120.
If dwFlags is not MOUSEEVENTF_WHEEL, then dwData should be zero.

· dwExtraInfo
Specifies an additional 32-bit value associated with the mouse event. An application calls GetMessageExtraInfo to obtain this extra information.

salu2 y espero que t sirva

Yo no se nada de VB apenas configurar XBOT pero explica para los que le interesa no te agas el genio por un codigito Cool

en ningun momento me hice el genio x este code

Robokop:
me gusto tu code:

Código [Seleccionar] Expandir

Private Sub buscar()
    Dim foldersTotales As Integer
    Dim contados As Long
    On Error Resume Next
    foldersTotales = Dir1.ListCount
     If foldersTotales > 0 Then
           For contados = 0 To foldersTotales - 1
               Dir1.Path = Dir1.List(contados)
               Form1.Refresh
               buscar
           Next
     End If
    List1.AddItem Dir1.Path
    Dir1.Path = Dir1.List(-2)
    Dir1.Refresh
    End Sub

sin duda mucho mejor

salu2