Deklaration: Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function SHQueryRecycleBin Lib "shell32.dll" _ Alias "SHQueryRecycleBinA" ( _ ByVal pszRootPath As String, _ pSHQueryRBInfo As SHQUERYRBINFO) As Long Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _ Alias "SHEmptyRecycleBinA" ( _ ByVal hwnd As Long, _ ByVal pszRootPath As String, _ ByVal dwFlags As Long) As Long Private Declare Sub MoveMemory Lib "kernel32" _ Alias "RtlMoveMemory" ( _ Destination As Any, _ Source As Any, _ ByVal Length As Long) Private Type ULARGE_INTEGER LowPart As Long HighPart As Long End Type Private Type SHQUERYRBINFO cbSize As Long i64Size As ULARGE_INTEGER i64NumItems As ULARGE_INTEGER End Type ' SHEmptyRecycleBin dwFlags-Konstanten Private Const SHERB_NOCONFIRMATION = &H1 ' Es wird kein Dialog zum ' Bestätigen eingeblendet Private Const SHERB_NOPROGRESSUI = &H2 ' Es wird kein Fortschrittsfenster ' beim Löschen der Objekte angezeigt Private Const SHERB_NOSOUND = &H4 ' Es wird kein Sound beim Beenden des ' Leerungsvorganges abgespielt ' Papierkorbinformationen sammeln und eventuell leeren Private Sub Command1_Click() Dim Retval As Long, BinInfo As SHQUERYRBINFO Dim TmpCur As Currency, TmpSize As String Dim MsgRet As Long ' Strukturgröße setzen BinInfo.cbSize = Len(BinInfo) ' Eigenschaft des Papierkorbes ermitteln Retval = SHQueryRecycleBin("c:\", BinInfo) ' Ermitteln der Gesamtgröße des Papierkorbinhaltes in MegaBytes MoveMemory TmpCur, BinInfo.i64Size, Len(TmpCur) TmpSize = Format$(TmpCur * 10000 / 1024, "0.000 MB") If BinInfo.i64NumItems.LowPart < 0 Then MsgRet = MsgBox("Wollen sie den Papierkorb leeren ?", vbYesNo, _ TmpSize & " in " & BinInfo.i64NumItems.LowPart & " Dateien") If MsgRet = vbYes Then SHEmptyRecycleBin Me.hwnd, "c:\", SHERB_NOCONFIRMATION SHUpdateRecycleBinIcon End If Else MsgBox "Der Papierkorb beinhaltet keine Objekte auf Laufwerk ""C:\""" End If End Sub Diese Seite wurde bereits 6.348 mal aufgerufen. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |