Ordner in ZIP löschen

' 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Igor,
falls noch von Interesse und noch nicht gelöst (z.B. durch den Beitrag von Onurs Link) hier noch eine Idee dazu.
Klick doch einfach die MsgBox entsprechend weg...
Es kommt ja häufig vor, dass Buttons in Dialogboxen angeklickt werden sollen, dieses aber nicht möglich ist, weil VBA mit Erscheinen der DlgBox nicht weiter läuft.
Mit ein wenig API-Code läßt sich das aber leicht lösen.

Code:


[Cc][+][-]

Option Explicit

Private Declare PtrSafe Function KillTimer Lib "user32" ( _
        ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
Private Declare PtrSafe Function SetTimer Lib "user32" ( _
        ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _
        ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function SendDlgItemMessageA Lib "user32" ( _
        ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long, _
        ByVal wMsg As Long, ByVal wParam As LongPtr, _
        ByVal lParam As LongPtr) As LongPtr
Private Declare PtrSafe Function FindWindowA Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr

Dim hTimer As LongPtr

Sub ZipDelete()
  Dim sPath As String
  
  On Error GoTo Fehler
  sPath = "D:&bsol;_Arbeit&bsol;BackUp001.zip&bsol;"
  hTimer = SetTimer(0&, 0&, 50, AddressOf DlgClickProc)
  
  With CreateObject("Shell.Application")
       .Namespace(sPath & "MuyGrande").Self.InvokeVerb ("Delete")
       .Namespace(sPath & "VeryBig").Self.InvokeVerb ("Delete")
       .Namespace(sPath & "SehrGross").Self.InvokeVerb ("Delete")
  End With

Fehler:
  KillTimer 0&, hTimer

End Sub

Private Sub DlgClickProc()
' Klickt den Ja-Button an
  Dim hDlg As LongPtr
  
  hDlg = FindWindowA("#32770", "Ordner löschen")
  If hDlg > 0 Then SendDlgItemMessageA hDlg, 6, &HF5, 0&, 0&  '6=ja, 2=nein

End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread