Sortierte Dateiliste erstellen (VB.NET) Mit dieser Klasse lässt sich die Dateiliste eines Verzeichnis nach verschiedenen Kriterien wie Dateiname, Größe, Erstellungsdatums etc. sortieren.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  23.076
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 14 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Heute möchten wir Ihnen eine Klasse vorstellen, mit der sich eine Dateiliste eines Verzeichnisses nach verschiedenen Kriterien wie Dateiname, Größe oder auch Erstellungsdatum sortieren lässt. Die Dateiliste wird hierbei über die System.IO.Directory.GetFiles-Methode erstellt. Als Rückgabe erhalten wir ein Array mit den Dateinamen. Um das Array nun nach verschiedenen Datei-Merkmalen sortieren zu können, müssen wir uns eine Klasse erstellen, die die Schnittstelle IComparer implementiert. Beim Aufruf der Array.Sort-Methode übergeben wir dann die Klasse mit dem gewünschten Sortiermerkmal.

FileListComparer-Klasse

' Klasse für die Sortierung einer Dateiliste
Public Class FileListComparer
  Implements IComparer
 
  ' unterstützte Sortierfolgen
  Public Enum SortOrder
    SortByName = 0
    SortBySize = 1
    SortByType = 2
    SortByCreationTime = 3
    SortByLastWriteTime = 4
    SortByLastAccessTime = 5
  End Enum
 
  Private m_SortOrder As SortOrder
 
  Public Sub New()
    ' Standard-Sortierung nach Dateiname
    m_SortOrder = SortOrder.SortByName
  End Sub
 
  Public Sub New(ByVal SortBy As SortOrder)
    ' Überladen mit Angabe der gewünschten Sortierfolge
    m_SortOrder = SortBy
  End Sub
 
  Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    Implements System.Collections.IComparer.Compare
 
    ' Vergleich-Parameter (x,y) in Strings umwandeln
    Dim xFile As String = DirectCast(x, String)
    Dim yFile As String = DirectCast(y, String)
 
    Select Case m_SortOrder
      Case SortOrder.SortByName
        ' nach Dateiname sortieren
        Return String.Compare(xFile, yFile, True)
 
      Case SortOrder.SortBySize
        ' nach Dateigröße sortieren
        Dim xSize As Long = New FileInfo(xFile).Length
        Dim ySize As Long = New FileInfo(yFile).Length
        If xSize < ySize Then
          Return -1
        ElseIf xSize = ySize Then
          Return 0
        Else
          Return 1
        End If
 
      Case SortOrder.SortByType
        ' nach Dateityp sortieren
        Dim xType As String = New FileInfo(xFile).Extension
        Dim yType As String = New FileInfo(yFile).Extension
        Return String.Compare(xType, yType)
 
      Case SortOrder.SortByCreationTime
        ' nach Erstellungsdatum sortieren
        Dim xTime As Long = File.GetCreationTime(xFile).Ticks
        Dim yTime As Long = File.GetCreationTime(yFile).Ticks
        If xTime < yTime Then
          Return -1
        ElseIf xTime = yTime Then
          Return 0
        Else
          Return 1
        End If
 
      Case SortOrder.SortByLastWriteTime
        ' nach Änderungsdatum sortieren
        Dim xTime As Long = File.GetLastWriteTime(xFile).Ticks
        Dim yTime As Long = File.GetLastWriteTime(yFile).Ticks
        If xTime < yTime Then
          Return -1
        ElseIf xTime = yTime Then
          Return 0
        Else
          Return 1
        End If
 
      Case SortOrder.SortByLastAccessTime
        ' nach Änderungsdatum sortieren
        Dim xTime As Long = File.GetLastAccessTime(xFile).Ticks
        Dim yTime As Long = File.GetLastAccessTime(yFile).Ticks
        If xTime < yTime Then
          Return -1
        ElseIf xTime = yTime Then
          Return 0
        Else
          Return 1
        End If
    End Select
  End Function
End Class

Nachfolgendes Beispiel demonstriert die Anwendung der Klasse. Erstellen Sie hierzu ein neues Windows-Forms-Projekt und platzieren ein ListView-Control auf die Form. Erstellen Sie im ListView folgende Spalten (über die Columns-Auflistung im Eigenschaftenfenster des Controls):

• Dateiname
• Größe
• Typ
• Erstellungsdatum
• Änderungsdatum

Platzieren Sie unterhalb des ListView-Controls 5 Buttons und beschriften Sie diese mit "Dateiname", "Größe", "Typ", "Erstellungsdatum" und "Änderungsdatum". Beim Klick auf den jeweiligen Button werden die Dateien eines vorgebenenen Verzeichnisses in der entsprechenden Sortierfolge im ListView-Control angezeigt.

Imports System.IO
Public Class Form1
 
  ' Klasse für die Sortierung einer Dateiliste
  Public Class FileListComparer
    Implements IComparer
 
    ' siehe Code von oben 
    ' ...
 
  End Class
 
  ' Vorgabe: Verzeichnis
  Private sPath As String = "d:\ordner"

  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' nach Dateinamen sortieren
    ShowFiles sPath, FileListComparer.SortOrder.SortByName
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
 
    ' nach Dateigröße sortieren
    ShowFiles sPath, FileListComparer.SortOrder.SortBySize
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button3.Click
 
    ' nach Dateityp sortieren
    ShowFiles sPath, FileListComparer.SortOrder.SortByType
  End Sub

  Private Sub Button4_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button4.Click
 
    ' nach Erstellungsdatum sortieren
    ShowFiles sPath, FileListComparer.SortOrder.SortByCreationTime
  End Sub

  Private Sub Button5_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button5.Click
 
    ' nach Änderungsdatum sortieren
    ShowFiles sPath, FileListComparer.SortOrder.SortByLastWriteTime
  End Sub

  ''' <summary>
  ''' Sortierte Dateiliste im ListView anzeigen
  ''' </summary>
  Private Sub ShowFiles(ByVal sPath As String, ByVal nSort As FileListComparer.SortOrder)
    ' ListView-Inhalt löschen
    ListView1.Items.Clear
 
    If Directory.Exists(sPath) Then
      ' Dateiliste als Array
      Dim sFiles() As String = Directory.GetFiles(sPath)
 
      ' Array nach Sortiermerkmal sortieren
      Array.Sort(sFiles, New FileListComparer(nSort))
 
      ' Dateiliste im ListView anzeigen
      Dim oFile As FileInfo
      For i As Integer = 0 To sFiles.Length - 1
        oFile = New FileInfo(sFiles(i))
        With ListView1.Items.Add(oFile.Name)
          .SubItems.Add(oFile.Length)
          .SubItems.Add(oFile.Extension)
          .SubItems.Add(oFile.LastWriteTime)
          .SubItems.Add(oFile.CreationTime)
        End With
      Next 
    End If
  End Sub

End Class