Dateien Sortieren

    • VB.NET

      Dateien Sortieren

      Hi
      Hier mal ein Code zum Sortieren von Dateien in einem Array:
      Sortierklasse:

      VB.NET-Quellcode

      1. Public Class FileSorter : Implements IComparer(Of String)
      2. Private fsmFileSortMode As FileSortMode
      4. Public Function Compare(ByVal x As String, ByVal y As String) As Integer Implements System.Collections.Generic.IComparer(Of String).Compare
      5. Select Case fsmFileSortMode
      6. Case FileSorterApplication.FileSortMode.DirectoryAndFileName
      7. Return New CaseInsensitiveComparer().Compare(x, y)
      8. Case FileSorterApplication.FileSortMode.CreationDate
      9. Dim timeX As Long = IO.File.GetCreationTime(x).Ticks
      10. Dim timeY As Long = IO.File.GetCreationTime(y).Ticks
      11. If timeX < timeY Then
      12. Return -1
      13. ElseIf timeX > timeY Then
      14. Return 1
      15. Else
      16. Return 0
      17. End If
      18. Case FileSorterApplication.FileSortMode.LastAccess
      19. Dim timeX As Long = IO.File.GetLastAccessTime(x).Ticks
      20. Dim timeY As Long = IO.File.GetLastAccessTime(y).Ticks
      21. If timeX < timeY Then
      22. Return -1
      23. ElseIf timeX > timeY Then
      24. Return 1
      25. Else
      26. Return 0
      27. End If
      28. Case FileSorterApplication.FileSortMode.LastWriteTime
      29. Dim timeX As Long = IO.File.GetLastWriteTime(x).Ticks
      30. Dim timeY As Long = IO.File.GetLastWriteTime(y).Ticks
      31. If timeX < timeY Then
      32. Return -1
      33. ElseIf timeX > timeY Then
      34. Return 1
      35. Else
      36. Return 0
      37. End If
      38. Case FileSorterApplication.FileSortMode.FileName
      39. Return New CaseInsensitiveComparer().Compare(IO.Path.GetFileName(x), _
      40. IO.Path.GetFileName(y))
      41. End Select
      42. End Function
      44. Public Property FileSortMode() As FileSortMode
      45. Get
      46. Return fsmFileSortMode
      47. End Get
      48. Set(ByVal value As FileSortMode)
      49. fsmFileSortMode = value
      50. End Set
      51. End Property
      52. End Class
      54. Public Enum FileSortMode As Integer
      55. DirectoryAndFileName = 0
      56. FileName = 1
      57. CreationDate = 2
      58. LastAccess = 3
      59. LastWriteTime = 4
      60. End Enum


      Anwendung:
      Form: frmTestForm
      ListBox: ListBoxFiles
      5x Button:
      - ButtonDirectoryAndFileName
      - ButtonFileName
      - ButtonCreationDate
      - ButtonLastAccess
      - ButtonLastWriteTime

      VB.NET-Quellcode

      1. Public Class frmTestForm
      2. Dim staFiles() As String = IO.Directory.GetFiles("C:\Temp", "*.*", IO.SearchOption.AllDirectories)
      3. Dim fsSorter As New FileSorter
      5. Private Sub ButtonDirectoryAndFileName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDirectoryAndFileName.Click
      6. fsSorter.FileSortMode = FileSortMode.DirectoryAndFileName
      7. Array.Sort(staFiles, fsSorter)
      8. ListBoxFiles.Items.Clear()
      9. ListBoxFiles.Items.AddRange(staFiles)
      10. End Sub
      12. Private Sub ButtonFileName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFileName.Click
      13. fsSorter.FileSortMode = FileSortMode.FileName
      14. Array.Sort(staFiles, fsSorter)
      15. ListBoxFiles.Items.Clear()
      16. ListBoxFiles.Items.AddRange(staFiles)
      17. End Sub
      19. Private Sub ButtonCreationDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCreationDate.Click
      20. fsSorter.FileSortMode = FileSortMode.CreationDate
      21. Array.Sort(staFiles, fsSorter)
      22. ListBoxFiles.Items.Clear()
      23. ListBoxFiles.Items.AddRange(staFiles)
      24. End Sub
      26. Private Sub ButtonLastAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLastAccess.Click
      27. fsSorter.FileSortMode = FileSortMode.LastAccess
      28. Array.Sort(staFiles, fsSorter)
      29. ListBoxFiles.Items.Clear()
      30. ListBoxFiles.Items.AddRange(staFiles)
      31. End Sub
      33. Private Sub ButtonLastWriteTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLastWriteTime.Click
      34. fsSorter.FileSortMode = FileSortMode.LastWriteTime
      35. Array.Sort(staFiles, fsSorter)
      36. ListBoxFiles.Items.Clear()
      37. ListBoxFiles.Items.AddRange(staFiles)
      38. End Sub
      39. End Class


      Gruß
      ~blaze~

    Facebook