mostrar en un label nombres de archivos de un directorio

[Drknow]

Hola tengo una consulta tengo mi aplicacion un timer y un label
lo que quiero es que en el label se valla mostrando la direccion o el nombre de los archivos que estan en mi directorio, algo asi como si fuera una busqueda o un antivirus e usado el APP.PATH y el dir pero no logro que siga con los archivos y un poco con RND, bueno gracias

[Avellaneda]

Hola, si lo que entendí es que cada cierto tiempo se vayan mostrando los archivos en el label, puedes hacerlo sin necesidad del Timer.
Con la API Sleep:

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim s As String
s = Dir(App.Path & "\*.*")
Do While s <> ""
    Label1.Caption = App.Path & "\" & s
    Sleep 1000  ' esperar un segundo
    s = Dir
    DoEvents
Loop
MsgBox "Fin de archivos"
Label1.Caption = ""
End Sub

Si solamente quieres mostrar los archivos (sin ruta), quita lo marcado en rojo.

[Drknow]

Bien Gracias el problema a sido de gran ayuda