Dudas con el objeto File

[r0xSoFT]

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!!!!

[seba123neo]

Código (vb) [Seleccionar] Expandir

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

[Dessa]

Código [Seleccionar] Expandir



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



[r0xSoFT]

di0s... que fallazo.



Muchas gracias gente.



Salu2!!!