Private Function LastFileDate2(ByVal folder As String) As Date
 
      Dim maxdate As Date = _
         Aggregate file As String In IO.Directory.GetFiles(folder)
             Let ct As Date = New IO.FileInfo(file).CreationTime
             Where ct.Date < Today.Date
             Select ct.Date Into Max()
 
        Return maxdate.Date
    End Function