güncelle butonunun kodu;

Private Sub Komut2_Click()

Dim StrDosyaAdi As String



StrDosyaAdi = Dir$(CurrentProject.Path & "\data\")

Do While StrDosyaAdi <> ""

    Liste0.AddItem StrDosyaAdi

    StrDosyaAdi = Dir$

Loop



End Sub

olarak dener misiniz?