Visual Basic - AYUDA MUY SIMPLE POR FAVOR

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA MUY SIMPLE POR FAVOR

Publicado por JOAO (49 intervenciones) el 06/09/2005 16:36:30
Tengo un form con un textbox y un boton, mi intención es que al pulsar el boton aparezca un listado con todos los nombres de archivos. El caso es que con el siguiente código solamente me lista un archivo. Que debo modificar o añadir para que liste todos?.

Private Sub CommandButton1_Click()
Directory = "c:\ability2000\"
r = 1
TextBox1 = "Filename"
f = Dir(Directory, 7)
Do While f <> ""
r = r + 1
TextBox1 = f
f = Dir()
Loop
End Sub

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:AYUDA MUY SIMPLE POR FAVOR

Publicado por SuNcO (599 intervenciones) el 06/09/2005 16:54:36
No se usa dir(directorio,"*.*") ?

En todo caso, en TextBox1 = f solo pones 1 archivo

El TextBox1 debe ser multilinea y ponerle asi :

TextBox1 = TextBox1 & f & chr(13) & chr(10)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar