To clear recycle bin with VBA

[Maurizio]

Hi, is there a way in order to clean up recycle bin by vba?

 

[Ivan F Moala]

On 2002-11-04 16:14, maurizio.rota wrote:
Hi, is there a way in order to clean up recycle bin by vba?

You will have to use some Win API's to do this;

<pre/>
Option Explicit

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

'// Just a basic emptying of the Folder
Sub RecycleBin_Empty()
Dim Para As Long
Dim lngRet As Long

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

End Sub

</pre>

 

[Maurizio]

Thank you Ivan!

 

[azizrasul]

Is there a way to prevent the message box appearring i.e. Are you sure you want to permanently delete all of these items?

 

[RoryA]

Try using:

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

 

[azizrasul]

Many thanks RoryA.