Gruppe
Datei
Problem
Beim Schließen der Arbeitsmappe sollen alle *.doc- und *.pdf-Dateien im Verzeichnis c:\temp gelöscht werden.
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