Dim Path As String = "d:\temp"
Dim startDate As Date = Now.AddDays(-14)
Dim endDate As Date = startDate.AddDays(7)
Dim lastFile As IO.FileInfo = Nothing
 
With New IO.DirectoryInfo(Path)
  For Each File As IO.FileInfo In .GetFiles
    With File
      If .CreationTime >= startDate AndAlso .CreationTime <= endDate Then
        If IsNothing(lastFile) OrElse .CreationTime > lastFile.CreationTime Then
          lastFile = File
        End If
      End If
    End With
  Next 
End With
 
If Not IsNothing(lastFile) Then
  MsgBox(lastFile.Name & vbCrLf & lastFile.CreationTime)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de