Visual Basic o Textbox não actualiza

[DarkWolfXP]

Boas, neste momento ando a "brincar" com Visual Basic estava a fazer uma aplicação básica ( tem uma DirListBox, FileListBox e um TextBox) que mostra os ficheiros que estão numa pasta, o problema chega em que gostava que o TextBox actualizasse sempre k mudasse de pasta mas não consigo. O que neste momento acontece na TextBox é que mostra m os ficheiros da pasta em que se encontra, e quando na DirListBox mudo para outra pasta o TextBox não actualiza mas na FileListBox actualiza...
Eu sou mt verde nisto mas keria ter isto a funcionar para facilitar me a vida numas coisas, pois tencionava dps na textbox adicionar-m expressoes que se repetem.

Eis o meu codigo:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
File1.Path = Dir1.Path

End Sub

Private Sub Form_Load()
        Dim file As Long
        For file = 0 To File1.ListCount - 2
        Text1.Text = Text1.Text & File1.List(file) & vbCrLf
        Next file
End Sub

 

[SoundSurfer]

Tens de mandar actualizar o texto outra vez quando mudas de directoria...

o form_load só corre a primeira vez que a janela abre:

Private Sub Dir1_Change()
File1.Path = Dir1.Path

[COLOR="Red"]Dim file As Long
For file = 0 To File1.ListCount - 2
Text1.Text = Text1.Text & File1.List(file) & vbCrLf
 Next file[/COLOR]

End Sub

Private Sub File1_Click()
File1.Path = Dir1.Path

End Sub

Private Sub Form_Load()
        Dim file As Long
        For file = 0 To File1.ListCount - 2
        Text1.Text = Text1.Text & File1.List(file) & vbCrLf
        Next file
End Sub

 

[DarkWolfXP]

Boas!, Funcionou parcialmente . Agr akilo vai acumulando os ficheiros ^^, isto é o Textbox vai mostrando os ficheiros k estao numa pasta e dps kuando mudo os ficheiros da pasta passada ainda la estao + os ficheiros da nova pasta .
Existe alguma maneira de limpar "o rasto" ?
Desde já mt obrigado pela atenção!

 

[SoundSurfer]

Antes de começar o ciclo:

Text1.Text = ""
(ou o que quer que seja a string vazia em VB)

 

[DarkWolfXP]

Epah, Mt obrigado!!!
Resolveste me o bicho de 7 cabeças num piscar de olhos -,-'', eu sou um valente nabo em VB ver-se nas proximas ferias aprendo isto de cabeça aos pes!!!
Mais uma vez obrigado
Já agr HAPPY NEW YEAR EVERYONE