ادرس قرار گرفتن چند فایل در لیست و پاک کردن فایل ها توسط دکمه

[alishademan]

با سلام و عرض خسته نباشید به دوستان عزیز بنده ادرس چند تا فایل که توی سیستمم هست رو توی لیست باکس دارم حالا یک دکمه هم روی فرم می خوام وقتی رو دکمه کلیک کردم تمامی فایل ها پاک بشن با تشکر

[محسن واژدی]

سلام علیکم

Private Sub Command1_Click()
Dim i
With List1
For i = 1 To .ListCount - 1
SetAttr .List(i), vbNormal
Kill .List(i)
Next
End With
End Sub


موفق باشید