Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Löschen von Dateien beim Schließen einer Arbeitsmappe

Gruppe

Schließen

Problem

Beim Schließen der Arbeitsmappe sollen alle *.doc- und *.pdf-Dateien im Verzeichnis c:\temp gelöscht werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim arr As Variant
   Dim iCounter As Integer, iArray As Integer
   On Error GoTo ERRORHANDLER
   arr = Array("*.pdf", "*.doc")
   For iArray = 0 To 1
      With Application.FileSearch
         .NewSearch
         .LookIn = Range("B1").Value
         .FileName = arr(iArray)
         .Execute
         For iCounter = 1 To .FoundFiles.Count
            Kill .FoundFiles(iCounter)
         Next iCounter
      End With
   Next iArray
   Exit Sub
ERRORHANDLER:
   MsgBox "Datei konnte nicht gelöscht werden!"
End Sub