Papierkorb leeren

  • Sonstige

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Annoxoli.

    Papierkorb leeren

    Hallo liebes Forum,

    Bisher konnet ihr mir auch immer gut helfen, so hoffe ich dies wieder.

    Wie bekomme ich es hin, den Windows Papierkorb zu leeren,bzw den Inhalt wenn er gelöscht wurde wiederherzustellen.

    Ich habe schon viel zu dem Thema gegoogelt, aber die gefundenen Beiträge haben mir nicht weitergeholfen.

    Ich arbeite mit Windows 7 64 Bit und VBA6.

    Versuch mal :

    Visual Basic-Quellcode

    1. Option Explicit On
    2. Option Strict On
    6. Friend Class clsSafeNativeMethods
    9. Friend Const UserInterface_NOCONFIRMATION As Short = &H1S
    10. Friend Const UserInterface_NOPROGRESS As Short = &H2S
    11. Friend Const UserInterface_NOSOUND As Short = &H4S
    13. Friend Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
    14. (ByVal hwnd As Integer, ByVal pszRootPath As String, ByVal dwFlags As Integer) As Integer
    16. Friend Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Integer
    18. End Class
    22. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    24. clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, _
    25. vbNullString, _
    26. clsSafeNativeMethods.UserInterface_NOCONFIRMATION)
    28. clsSafeNativeMethods.SHUpdateRecycleBinIcon()
    30. End Sub
    32. 'Aufruf ohne Status und Sound
    34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, _
    38. clsSafeNativeMethods.UserInterface_NOCONFIRMATION + clsSafeNativeMethods.UserInterface_NOPROGRESS _
    39. + clsSafeNativeMethods.UserInterface_NOSOUND)
    40. clsSafeNativeMethods.SHUpdateRecycleBinIcon()
    42. End Sub

    ja.. hab vergessen wegen vba...
    so kriegst du den pfad:

    Visual Basic-Quellcode

    1. ' Folgende Funktionen brauchst du
    2. Private Declare Function apiGetSystemDirectory _
    3. Lib "kernel32" _
    4. Alias "GetSystemDirectoryA" ( _
    5. ByVal strBuffer As String, _
    6. ByVal lngSize As Long) _
    7. As Long
    8. ' Sourcecode von Annoxoli
    9. ' EMail: admin@srv32.de
    10. ' 07.09.2012 14:10
    11. Function GetWinSysDir() As String
    12. Dim strBuffer As String
    13. Dim lngLength As Long
    15. strBuffer = Space(255)
    16. lngLength = apiGetSystemDirectory(strBuffer, Len(strBuffer))
    18. If lngLength = 0 Then
    19. GetWinSysDir = "Error"
    20. Else
    21. GetWinSysDir = Left(strBuffer, lngLength)
    22. End If
    23. End Function
    25. 'Das rufst du bei einem Button-Klick auf:
    27. Dim strString As String
    28. strString = GetWinSysDir
    29. MsgBox (Replace(strString, "WINDOWS\system32", "") & "$Recycle.Bin\")
    31. 'Nun hast du den Pfad in der Messagebox
    33. 'So löscht du dann den Ordner:
    34. Kill (Replace(strString, "WINDOWS\system32", "") & "$Recycle.Bin\")