Dim lt As Date = Now
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000 * 10
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If DateDiff(DateInterval.Minute, lt, Now) = 10 Then
            lt = Now
            For Each f As String In IO.Directory.GetFiles("C:\test")
                Try
                    IO.File.Delete(f)
                Catch
                End Try
            Next
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist