VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Löschen von Dateien beim Schließen einer Arbeitsmappe

Gruppe

Datei

Bereich

Schließen

Thema

Löschen von Dateien beim Schließen einer Arbeitsmappe

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Schließen