Private Function DateFiles(ByVal folder As String, _
        day As Integer, month As Integer, year As Integer) As String()
 
        Dim filelist As New List(Of String)
        'Schleife über Dateien im Ordner  
        For Each file As String In IO.Directory.GetFiles _
            (folder, "*.*", IO.SearchOption.TopDirectoryOnly)
            'Informationen zur Datei "file" abfragen ...
            Dim fi As New IO.FileInfo(file)
 
            'Erstelldatum mit Parametern vergleichen
            With fi.CreationTime
                If .Year = year AndAlso _
                    .Month = month AndAlso .Day = day Then
                    filelist.Add(file) 'passende Datei in Liste anhängen
                End If
            End With
        Next file
 
        'Rückgabe der Dateiliste als Array
        Return filelist.ToArray
    End Function

 Dim files As String() = DateFiles("C:\daten", 5, 1, 2013)

Dim files As String() = DateFiles(TextBox3.Text, 24, 6, 2017)

Dim files As String() = DateFiles(TextBox3.Text, Textbox2.Text)

 Private Function DateFiles(ByVal folder As String, dt As Date) As String()
 
     Dim filelist As New List(Of String)
 
     For Each file As String In IO.Directory.GetFiles _
            (folder, "*.*", IO.SearchOption.TopDirectoryOnly)
         Dim fi As New IO.FileInfo(file)
         With fi.CreationTime
            If .Year = dt.Year AndAlso _
               .Month = dt.Month AndAlso .Day = dt.Day Then
               filelist.Add(file)
            End If
         End With
     Next file
     Return filelist.ToArray
End Function

Dim filelist As String() = DateFiles(textbox3.text, CDate(textbox2.Text))

 Private Function LastFileDate(ByVal folder As String) As Date
 
    Dim maxdate As Date = Nothing
 
    For Each file As String In IO.Directory.GetFiles _
            (folder, "*.*", IO.SearchOption.TopDirectoryOnly)
       Dim fi As New IO.FileInfo(file)
       Dim ct As Date = fi.CreationTime
 
       'Ausschluss der heutigen Files
       If ct.Date < Today.Date Then
          'Suche nach dem größten Datum (ohne heute)
          If ct.Date > maxdate Then maxdate = ct.Date
       End If
    Next file
    Return maxdate
 End Function

  Dim lfd As Date = LastFileDate("C:\daten")
  If lfd <> Nothing Then
     MsgBox("Letzte Datei-Erstellung: " & lfd.ToString("dd.MM.yyyy"))
  Else
     MsgBox("Kein Datum gefunden")
  End If

  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

Zitat:

Angaben aus dem Dateisystem in eine Datenbank zu übertragen, nur um per SQL darauf zugreifen zu können: davon würde ich abraten. Man handelt sich eine komplexe Synchronisierungs-Aufgabe ein.

Zitat:

Was genau besagt der eingetragene Zeitpunkt der letzten Änderung? Wurde tatsächlich etwas geändert? Oder nur der alte Inhalt neu gespeichert? Ähnliches gilt für den Erstell-Zeitpunkt einer Datei, der bei bestimmten Operationen im Dateisystem aktualisiert wird.

Zitat:

Datenbanken sollten meiner Ansicht nach - bei Bedarf - von den Anwendungs-Programmen verwaltet werden, durch die die Datei-Zugriffe, die Filesystem-Operationen oder die Modifikationen von Datei-Inhalten tatsächlich durchgeführt worden sind.

EALA FREYA FRESENA