http://www.developerfusion.com/code/5673/how-to-empty-a-recycle-bin/ 貌似能够清空回收站，清空时不会提示用户确认，而且没有提示音和进度条。 Usage:  Dim Action As New ShellActions  Action.EmptyRecycleBin()  Public Class ShellActions  Shared Function _  SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _  ByVal dwFlags As Integer) As Integer  End Function  Sub New()  EmptyRecycleBin()  End Sub  Sub EmptyRecycleBin(Optional ByVal rootPath As String = "", _  Optional ByVal noConfirmation As Boolean = True, Optional ByVal NoProgress _  As Boolean = True, Optional ByVal NoSound As Boolean = True)  Const SHERB_NOCONFIRMATION = &H1  Const SHERB_NOPROGRESSUI = &H2  Const SHERB_NOSOUND = &H4  If rootPath.Length > 0 AndAlso rootPath.Substring(1, 2) <> ":\" Then  rootPath = rootPath.Substring(0, 1) & ":\"  End If  Dim flags As Integer = (noConfirmation And SHERB_NOCONFIRMATION) Or _  (NoProgress And SHERB_NOPROGRESSUI) Or (NoSound And SHERB_NOSOUND)  SHEmptyRecycleBin(0, rootPath, flags)  End Sub

评论