Imports System.IO
 
Dim dir As New DirectoryInfo("C:\Temp")
Dim jetzt as DateTime = DateTime.Now
For Each fi As FileInfo in dir.GetFiles()
   If fi.CreationTime.AddDays(10) < jetzt Then
      fi.Delete()
   End If
Next

Ralf