لیست کردن txt های کنار نرم افزار در لیست

[xrezax]

دوستان برنامم داخل یک پوشه هستش. در کنار اون چندتا txt هست.
می خوام وقتی روی کامند برنامم کلیک کنم تمام فایل های txt که در کنار برنامم هستن داخل یک لیست ، لیست بشن.
ممنون میشم سورس بزارید

[arenaw]

سلام

Dim s$
s = Dir(App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "*.txt")
Do While Not s = Empty
List1.AddItem s
s = Dir()
Loop


فقط اون آدرس رو اگه خواستی ویرایش کن