Imports System.IO
 
Dim dir As New DirectoryInfo("E:\WebSites\Test")
 
' Alten Dateien ermitteln:
Dim oldFiles = _
From fi In dir.GetFiles() _
Order By fi.CreationTime Descending _
Skip 3
 
For Each fi In oldFiles
   fi.Delete()
Next

Ralf