[حل شده] Recycle Bin

[sunstar]

سلام
آیا کدی هست که با اجرای آن فایل های موجود در سطل آشغال حذف و سطل آشغال کامپیوتر خالی بشه ؟ اگه لطف کنید راهنمایی بفرمائید ممنون میشم.

[Amir Ghasemiyan]

سلام دوست عزیز
شما باید از API های خود ویندوز استفاده کنید.
این کد رو بررسی بفرمایید:

Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
   Alias "SHEmptyRecycleBinA" ( _
   ByVal hwnd As Long, _
   ByVal pszRootPath As String, _
   ByVal dwFlags As Long) As Long




Sub RecycleBin_Empty()


Dim Para As Long


Dim lngRet As Long


lngRet = EmptyRecycleBin(0&, vbNullString, 0&)


End Sub

[sunstar]

هزاران سپاس