CODE:
Dim tage As String
Dim i As Variant
directory = IniRead("directory", "pfad", standartwert, IniPath)
tage = IniRead("Kriterium", "Zaehler", standartwert, IniPath)
cFF.FileNamesFromFolder directory, "*.tmp", dateiname, False
For Each i In dateiname()
    If FileDateTime(dateiname(i)) < DateAdd("d", 14, Now) Then
    Kill dateiname(i)
    End If
    Next