Dim files() As String = Directory.GetFiles("C:\temp\", "*.*")
        Dim i As Int32
        For i = 0 To files.GetUpperBound(0)
            If System.IO.Directory.GetCreationTime(files(i)) > DateTime.Now.AddDays(-14) Then
                File.Delete(files(i))
            End If
        Next i