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?
güncelle butonunun kodu;