Foro de elhacker.net

Buenas noches a tod@s.


Estoy haciendo "trastadas" en Visual Basic 6.0 y no he tenido narices a hacer una cosa que me llevo planteando un tiempo.


Utilizo el objeto "File" para obtener los archivos de un directorio. Lo que quiero es listar el contenido de este objeto "File" (los archivos del directorio).


El codigo es el siguiente:

File1.FileName = ruta del directorio


Private Sub Command1_Click()
Dim items As Integer
Dim nombre As String

items = File1.ListCount - 1

For i = items To 0 Step -1
nombre = File1.Selected(i)
MsgBox (nombre)
Next

End Sub


El problema viene cuando intento mostrar con el "MsgBox(nombre)" el elemento por el que voy. Pero me sale un "Falso".


Quería saber si alguno sabeis (valga la redundancia) como recorrer los elementos de un objeto File y mostrarlos por un MsgBox.



Gracias anticipadas.




Salu2!!!!

Private Sub Form_Load()
Dim i As Integer
For i = 0 To File1.ListCount
    MsgBox File1.List(i)
Next i
End Sub

Private Sub Command1_Click()

Dim items As Integer
Dim nombre As String
items = File1.ListCount - 1

For i = items To 0 Step -1
  File1.Selected(i) = True
  nombre = File1.FileName
  MsgBox (nombre)
Next

End Sub

di0s... que fallazo.



Muchas gracias gente.



Salu2!!!