For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
          "C:\DeinVerzeichnis", FileIO.SearchOption.SearchTopLevelOnly)
            If DateDiff(DateInterval.Hour, My.Computer.FileSystem.GetFileInfo( _
            foundFile).LastWriteTime, Now) > 6 Then
                My.Computer.FileSystem.DeleteFile(foundFile, _
                FileIO.UIOption.OnlyErrorDialogs, _
                FileIO.RecycleOption.SendToRecycleBin, _
                FileIO.UICancelOption.ThrowException)
            End If
        Next