das ist meine erste Frage, die ich an das Forum richte.
Ich hoffe, dass ich hier soweit alles richtig mache.
Zur Zeit arbeite ich an einer Programmkonstellation, in der der Papierkorb eine zentrale Rolle spielt.
Es funktioniert z.B. das Auslesen der Dateien aus dem Papierkorb.
Sowie das Löschen des gesamten Papierkorbs. Wobei hier wahrscheinlich nur der Index auf Null _
gesetzt wird.
Sub Papierkorb_auflisten()
Ausgabe mittels MsgBox
Dim Zeileninhalt_Papierkorb As Variant
With CreateObject("Shell.Application").Namespace(&HA)
For Each Zeileninhalt_Papierkorb In .Items
'Schreiben in Kombinationsfeld
'cbo_Papierkorb.AddItem Zeileninhalt_Papierkorb
MsgBox Zeileninhalt_Papierkorb
Next Zeileninhalt_Papierkorb
End With
End Sub
Löschen Papierkorb
SHUpdateRecycleBinIcon 'Löscht !!
Momentan komme ich nicht weiter.
Aufgabe ist es: einen bestimmten Bereich des Papierkorbs zu löschen, oder alternativ nicht zu löschen (Selection z.B.nach Anzahl verbleibender Dateien). Der Dateiname liegt vor.
Aber wie löschen ?
Danke im Voraus für Eure Hilfe
Beste Grüße
Roller_Martin
2019_01_30