Public Sub listAllFiles(ByVal Pfad As String, ByRef lb As ListBox)
        Dim mydir As New DirectoryInfo(TextBox5.Text) 'Pfad
        Dim myFiles() As FileInfo
        myFiles = mydir.GetFiles()
        For i As Integer = 0 To myFiles.Length - 1
            lb.Items.Add(myFiles(i).Name)
        Next i
 
 
    End Sub

Public Function GetFilesByDate(ByVal folder As String, _
                         ByVal criticalday As Date) As List(Of String)
 
   Dim filenames As New List(Of String)
 
   For Each fi As IO.FileInfo In New IO.DirectoryInfo(folder).GetFiles
      If fi.CreationTime.Date = criticalday.Date Then
         filenames.Add(fi.Name)
      End If
   Next fi
 
   Return filenames
End Function

lbo.DataSource = GetFilesByDate("C:\daten", CDate("20.04.2016"))

Zitat:

Wieso wird der Path-Parameter nicht genutzt?

Public Function GetFiles(ByVal folder As String, _
        Optional ByVal Searchpattern As String = "*.*") As List(Of String)
 
        Dim filenames As New List(Of String)
 
        For Each fi As IO.FileInfo In _
            New IO.DirectoryInfo(folder).GetFiles(Searchpattern)
 
            Dim item As String = _
              Format(fi.CreationTime, "dd.MM.yyyy") & " - " & fi.Name
            filenames.Add(item)        
        Next fi
 
        Return filenames
    End Function

Zitat:

Beim Programmieren ist es notwendig, daß man genau versteht, was die einzelnen Anweisungen, die man codiert hat, bewirken.

Public Function GetFileDateCounter(ByVal folder As String, _
     Optional ByVal Searchpattern As String = "*.*") As List(Of String)
 
     Dim FileDateCounter As _
        New Collections.Generic.SortedDictionary(Of Date, Integer)
 
     With FileDateCounter
 
        For Each fi As IO.FileInfo In _
           New IO.DirectoryInfo(folder).GetFiles(Searchpattern)
 
           Dim dt As Date = fi.CreationTime.Date()
           If .ContainsKey(dt) Then
              .Item(dt) += 1
           Else
              .Add(dt, 1)
           End If
        Next fi
 
     End With
 
     Dim fdc As New List(Of String)
     For Each item As KeyValuePair(Of Date, Integer) In FileDateCounter
        fdc.Add(Format(item.Key, "dd.MM.yyyy") & " - " & item.Value)
     Next item
 
     Return fdc
End Function

Zitat:

Leider war der Ansatz jetzt auch nur zur hälfte durchgedacht. Da das Datum wohl nur in den seltensten Fällen bekannt ist.

Zitat:

Es würde mehr Sinn machen nachdem der Ordner ausgewählt ist, die Daten in in einer Combobox dazustellen. 3.9.2017 34 Dateien 2.9.2017 2 Dateien

Public Class Form1
 
 
    Private Sub StartVZbutton_Click(sender As Object, e As EventArgs) Handles _
      StartVZbutton.Click
        If Start.ShowDialog() = DialogResult.OK Then
            StartVZ.Text = Start.SelectedPath
        End If
        cbo.DataSource = GetFileDateCounter(StartVZ.Text)
    End Sub
 
    Private Sub ZielVZbutton_Click(sender As Object, e As EventArgs) Handles _
      ZielVZbutton.Click
        If Ziel.ShowDialog() = DialogResult.OK Then
            ZielVZ.Text = Start.SelectedPath
        End If
    End Sub
 
    Public Function GetFileDateCounter(ByVal folder As String, Optional ByVal _
      Searchpattern As String = "*.txt") As List(Of String)
 
        Dim FileDateCounter As New Collections.Generic.SortedDictionary(Of _
          Date, Integer)
 
        With FileDateCounter
 
            For Each fi As IO.FileInfo In New IO.DirectoryInfo(folder).GetFiles( _
              Searchpattern)
 
                Dim dt As Date = fi.CreationTime.Date()
                If .ContainsKey(dt) Then
                    .Item(dt) += 1
                Else
                    .Add(dt, 1)
                End If
            Next fi
 
        End With
 
        Dim fdc As New List(Of String)
        For Each item As KeyValuePair(Of Date, Integer) In FileDateCounter
            fdc.Add(Format(item.Key, "ddd dd.MM.yy") & " - " & item.Value & "" & _
              "Dateien")
 
        Next item
 
        Return fdc
 
 
 
    End Function
 
 
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles _
      Clear.Click
        StartVZ.Text = ""
        ZielVZ.Text = ""
 
    End Sub
 
Private Sub Go_Click(sender As Object, e As EventArgs) Handles Go.Click
 
    End Sub
 
 
End Class

Public Class frmFileMove
 
    Dim fbd As New FolderBrowserDialog
 
    Dim WithEvents btnSourceFolder As New Button With _
        {.Parent = Me, .Text = "Quell-Ordner", .Width = 200}
 
    Dim cboFileDateFrequencies As New ComboBox With _
        {.Parent = Me, .Top = 50, .Width = 200}
 
    Dim WithEvents btnDestinationFolder As New Button With _
        {.Parent = Me, .Text = "Ziel-Ordner", _
         .Width = 200, .Top = 100, .Enabled = False}
 
    Dim WithEvents btnMove As New Button With _
        {.Parent = Me, .Text = "Verschieben", _
         .Top = 150, .Width = 200, .Enabled = False}
 
 
    Private Sub btnSourceFolder_Click(sender As Object, _
                       e As System.EventArgs) Handles btnSourceFolder.Click
 
        fbd.Description = "Quell-Ordner für Datei-Verschiebung"
        If fbd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        'Verteilung des Erstelldatums im Quellordner ermitteln
        cboFileDateFrequencies.DataSource = _
               GetFileDateCounter(fbd.SelectedPath)
 
        btnDestinationFolder.Enabled = cboFileDateFrequencies.Items.Count > 0
        btnSourceFolder.Tag = fbd.SelectedPath
        btnMove.Enabled = False
 
    End Sub
 
 
    Private Sub btnDestinationFolder_Click(sender As Object, _
                      e As System.EventArgs) Handles btnDestinationFolder.Click
 
        If cboFileDateFrequencies.SelectedItem Is Nothing Then Exit Sub
 
        fbd.Description = "Ziel-Ordner für Datei-Verschiebung"
        If fbd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        If fbd.SelectedPath.ToLower = _
            btnSourceFolder.Tag.ToString.ToLower Then Exit Sub
 
        btnDestinationFolder.Tag = fbd.SelectedPath
        btnMove.Enabled = true
    End Sub
 
 
    Private Sub btnMove_Click(sender As Object, _
                 e As System.EventArgs) Handles btnMove.Click
 
        Dim c As Integer = MoveFilesByDate(btnSourceFolder.Tag.ToString, _
                                           btnDestinationFolder.Tag.ToString, _
             CDate(cboFileDateFrequencies.SelectedItem.ToString.Split("-"c)(0)))
        If c > 0 Then
            MsgBox(c.ToString & " Dateien sind verschoben worden")
        Else
            MsgBox("Fehler beim Verschieben")
        End If
    End Sub
 
 
    Private Function MoveFilesByDate(source As String, destination As String, _
                                 criticaldate As Date) As Integer
        Try
            'Ermittlung der Dateien mit dem gewählten Erstelldatum  
            Dim fl As List(Of String) = GetFilesByDate(source, criticaldate)
 
            'Dateien verschieben
            For i As Integer = 0 To fl.Count - 1
                Dim fn As String = fl(i)
                IO.File.Move(IO.Path.Combine(source, fn), _
                             IO.Path.Combine(destination, fn))
            Next i
            Return fl.Count
        Catch ex As Exception
            Return -1
        End Try
    End Function
End Class

Public Function GetFileMonthCounter(ByVal folder As String, _
     Optional ByVal Searchpattern As String = "*.*") As List(Of String)
 
   Dim FileMonthCounter As _
            New Collections.Generic.SortedDictionary(Of Date, Integer)
 
   With FileMonthCounter
 
      For Each fi As IO.FileInfo In _
         New IO.DirectoryInfo(folder).GetFiles(Searchpattern)
 
         'Das Erstellungsdatum auf den ersten Tag des Monats setzen
         Dim dt As New Date(fi.CreationTime.Year, fi.CreationTime.Month, 1)
         If .ContainsKey(dt) Then
            .Item(dt) += 1
         Else
            .Add(dt, 1)
         End If
      Next fi
 
   End With
 
   Dim fdc As New List(Of String), freq As String, dtf as string
 
   For Each item As KeyValuePair(Of Date, Integer) In FileMonthCounter
      dtf = Format(item.Key, "Y")
      freq = item.Value.ToString
      freq = New String(" "c, (4 - freq.Length) * 2) & freq
      fdc.Add(freq & " - " & dtf)
   Next item
 
   Return fdc
End Function

lbo.DataSource = GetFilesByDate("C:\daten", CDate("20.04.2016"))

Public Class frmFileMoveMonth
 
    Dim fbd As New FolderBrowserDialog
 
    Dim WithEvents btnSourceFolder As New Button With _
        {.Parent = Me, .Text = "Quell-Ordner", .Width = 200}
 
    Dim cboFileDateFrequencies As New ComboBox With _
        {.Parent = Me, .Top = 50, .Width = 200}
 
    Dim WithEvents btnDestinationFolder As New Button With _
        {.Parent = Me, .Text = "Ziel-Ordner", _
            .Width = 200, .Top = 100, .Enabled = False}
 
    Dim WithEvents btnMove As New Button With _
        {.Parent = Me, .Text = "Verschieben", _
            .Top = 150, .Width = 200, .Enabled = False}
 
    Dim MonthNames As New List(Of String)
 
 
    Private Sub frmFileMove_Load(sender As System.Object, _
                                 e As System.EventArgs) Handles MyBase.Load
        MonthNames.Add(" ")
        For i As Integer = 1 To 12
            'Monatsnamen für Rückverzeigerung auflisten
            MonthNames.Add(MonthName(i, False))
        Next i
    End Sub
 
 
    Private Sub btnSourceFolder_Click(sender As Object, _
                   e As System.EventArgs) Handles btnSourceFolder.Click
 
        fbd.Description = "Quell-Ordner für Datei-Verschiebung"
        If fbd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        cboFileDateFrequencies.DataSource = _
            FileSystemStuff.GetFileMonthCounter(fbd.SelectedPath)
 
        btnDestinationFolder.Enabled = cboFileDateFrequencies.Items.Count > 0
        btnSourceFolder.Tag = fbd.SelectedPath
        btnMove.Enabled = False
 
    End Sub
 
 
    Private Sub btnDestinationFolder_Click(sender As Object, _
                      e As System.EventArgs) Handles btnDestinationFolder.Click
 
        If cboFileDateFrequencies.SelectedItem Is Nothing Then Exit Sub
 
        fbd.Description = "Ziel-Ordner für Datei-Verschiebung"
        If fbd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        If fbd.SelectedPath.ToLower = _
            btnSourceFolder.Tag.ToString.ToLower Then Exit Sub
 
        btnDestinationFolder.Tag = fbd.SelectedPath
        btnMove.Enabled = cboFileDateFrequencies.SelectedItem IsNot Nothing
    End Sub
 
 
    Private Sub btnMove_Click(sender As Object, _
                   e As System.EventArgs) Handles btnMove.Click
 
        Dim parts() As String = _
             cboFileDateFrequencies.SelectedItem.ToString.Split("-"c)
        Dim m As Integer = _
             MonthNames.IndexOf(parts(1).Trim.Split(" "c)(0).Trim)
        Dim y As Integer = CInt(parts(1).Trim.Split(" "c)(1))
 
        Dim c As Integer = MoveFilesByMonth _
                                  (btnSourceFolder.Tag.ToString, _
                                   btnDestinationFolder.Tag.ToString, m, y)
 
        If c > 0 Then
            MsgBox(c.ToString & " Dateien sind verschoben worden")
        Else
            MsgBox("Fehler beim Verschieben")
        End If
    End Sub
 
 
    Private Function MoveFilesByMonth _
                     (source As String, destination As String, _
                      criticalMonth As Integer, criticalYear As Integer) As _
                      Integer
        Try
            Dim fl As List(Of String) = _
                GetFilesByMonth(source, criticalMonth, criticalYear)
 
            For i As Integer = 0 To fl.Count - 1
                Dim fn As String = fl(i) '.Split("-"c)(1).Trim
                IO.File.Move(IO.Path.Combine(source, fn), _
                                IO.Path.Combine(destination, fn))
            Next i
            Return fl.Count
        Catch ex As Exception
            Return -1
        End Try
    End Function
 
 
    Public Function GetFilesByMonth(ByVal folder As String, _
       ByVal criticalMonth As Integer, criticalYear As Integer) As List(Of _
       String)
 
        Dim filenames As New List(Of String)
 
        For Each fi As IO.FileInfo In New IO.DirectoryInfo(folder).GetFiles
            If fi.CreationTime.Year = criticalyear AndAlso _
                fi.CreationTime.Month = criticalMonth Then
                filenames.Add(fi.Name)
            End If
        Next fi
 
        Return filenames
    End Function
End Class