نمایش فایل های یک پوشه در لیست

[Dr.Bronx]

سلام خدمت دوستان برنامه نویس
به طور مثال من یک پوشه دارم داخل به این صورت
C:\Sample
حالا داخل این پوشه 3تا فایل دارم با نام
S1.exe
S2.exe
S3.exe

می خوام این 3تا فایل رو داخل یک لیست ویو نمایش بدم
و ممکنه این 3 تا فایل 4تا هم بشه یعنی یه فایل S4.exe هم بهش اضافه بشه
ممنون می شم راهنمایی کنید

[butterfly8528]

سلام دوست عزیز .

بفرما :


Private Sub Command1_Click()
Dim f As String
f = App.Path ' "c:\"
If (Right$(f, 1) = "\") Then
f = Dir$(f & "\*.*")
Else
f = Dir$(f & "\*.*")
End If
Do While Len(f) > 0
ListView1.ListItems.Add , , f
f = Dir$()
Loop
End Sub

[Dr.Bronx]

با تشکر از پاسخ شما
شما با چه کنترلی کار کردید ؟
هیچ کدام از کنترل ها چنین خاصیتی نداره ؟ Listitems

[butterfly8528]

مگه شما با لیست ویو نخواستی ؟

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

[Dr.Bronx]

بسیار ممنون از پاسختون
اشتباه از من بود .

[butterfly8528]

بفرما این هم پروژش :