Hier konnte ich bis jetzt alles finden, aber ein Problem finde ich nicht in gesamten Internet:
Ich möchte die unnötige Ordner und Dateien aus ZIP-Archiv entfernen ohne ihn zu entpacken.
Es klappt, ich möchte aber nicht alles bestätigen und so funktioniert es nicht:
' 1.)
Dim Folder As String
Folder = "D:\_Koeser\Arbeit\_DE_Bremen_MB\_Halle80\Modul2\BAK_20210713\UB52_120RB_200.zip\Log Files"
Shell "cmd /c rd /S/Q """ & Folder & """"
' nichts passiert.
' 2.)
' Delete Ordner aus ZIP SOLL ohne Abfrage:
Application.DisplayAlerts = False ' Überschreiben ohne Nachfrage:
CreateObject("Shell.Application").Namespace("D:\_Arbeit\BackUp001.zip\MuyGrande").Self.InvokeVerb ("Delete")
CreateObject("Shell.Application").Namespace("D:\_Arbeit\BackUp001.zip\VeryBig").Self.InvokeVerb ("Delete")
CreateObject("Shell.Application").Namespace("D:\_Arbeit\BackUp001.zip\SehrGross").Self.InvokeVerb ("Delete")
Application.DisplayAlerts = True
' gelöscht mit Abfrage.
Stop
Stop
VIELEN DANK vom Umwelt für weniger elektronischer Schrott!