[حل شده] درخواست کدی برای پاک کردن فایل

[alfa]

سلام
دنبال کدی میگردم که اگه کلیدی روی فرم را فشار دادم
کلیه فایلهای موجود در تمام پارتیشن کامپیوتر را با پسوند temp.* پیدا کند و پاک کند.

[a.dal65]

Sub DeleteExample1()
    On Error Resume Next
    Kill "c:\temp\*.temp"
    On Error GoTo 0
End Sub

[alfa]

بسیار سپاسگزارم بزرگوار