Thema: Alle Dateien ab einem bestimmten Datum listen

StandardModule: basMain

Sub DateiListe()
   Dim fs As FileSearch
   Dim iCounter As Integer
   Dim sPath As String
   sPath = InputBox( _
      prompt:="Verzeichnis:", _
      Default:=CurDir)
   If sPath = "" Then Exit Sub
   Set fs = Application.FileSearch
   With fs
      .LookIn = sPath
      .FileType = msoFileTypeExcelWorkbooks
      .LastModified = msoLastModifiedThisMonth
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Cells(iCounter, 1).Value = .FoundFiles(iCounter)
      Next iCounter
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Zeit