|
|
|
|
|
Den Windows-Papierkorb zu füllen ist nicht allzu schwierig -
eine Erweiterung der Kill-Anweisung macht es möglich ( Dateien
löschen - Explorer-like). Aber irgendwann muss ja jeder
Papierkorb einmal geleert werden.
Mit der Funktion ClearRecycleBin entsorgen Sie den Inhalt des
Papierkorbs eines Laufwerks - oder aller Papierkörbe (also
eigentlich den einen, den großen Windows-Papierkorb), wenn Sie kein
Laufwerk angeben. Die Bestätigung, ab wirklich alles entsorgt
werden soll, unterdrücken Sie, indem Sie den Parameter
NoConfirmation gleich True setzen. Die Fortschrittsanzeige
unterdrücken Sie mit NoConfirmation gleich True. Geräuschlos geht
die Leerung vonstatten, wenn Sie auch noch NoSound gleich True
setzen. In hwndParent übergeben Sie die hWnd-Eigenschaft eines
Forms, damit Windows den Löschvorgang Ihrer Anwendung zuzuordnen
weiß. Ist die Leerung fehlgeschlagen, gibt die Funktion den Wert
True zurück.
Die hinter ClearRecycleBin steckende API-Funktion  SHEmptyRecycleBin
steht allerdings erst ab Version 4.71 der Shell-DLL zur Verfügung (ActiveDesktop
ab Internet Explorer 4, Windows 98, 2000). Daher wird der API-Aufruf
gegebenenfalls einfach übersprungen, falls die Funktion auf einem
älteren System (etwa Windows 95 pur) nicht zur Verfügung stehen
sollte.
Private Declare Function SHEmptyRecycleBin Lib "shell32" _
Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, _
ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Public Function ClearRecycleBin( _
Optional ByVal Laufwerk As String, _
Optional ByVal hwndParent As Long, _
Optional ByVal NoConfirmation As Boolean, _
Optional ByVal NoProgress As Boolean, _
Optional ByVal NoSound As Boolean _
) As Boolean
Dim nOptions As Long
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
If NoConfirmation Then
nOptions = SHERB_NOCONFIRMATION
End If
If NoProgress Then
nOptions = nOptions Or SHERB_NOPROGRESSUI
End If
If NoSound Then
nOptions = nOptions Or SHERB_NOSOUND
End If
On Error Resume Next
SHEmptyRecycleBin hwndParent, Laufwerk, nOptions
ClearRecycleBin = CBool(Err.Number)
End Function
 |
Die Funktion ClearRecycleBin leert den
Papierkorb eines Laufwerks bzw. aller Laufwerke
|
|
|
|