Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
Fonksiyon tanıtımları için "shell32.dll" i kullanıyoruz.
Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)
SHUpdateRecycleBinIcon()
End Sub
Bir sub oluşturuyoruz. Geri Dönüşüm Kutusunu boşaltıyor ve güncel görünüme getiriyor.
EmptyRecycleBin()
Boşaltmak için sub'u çağırmalıyız.
Alıntıdır.
Son düzenleme: