Alle Dateien eines Datenträgers auflisten

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Bernd.

    Alle Dateien eines Datenträgers auflisten

    Hey,

    Ich wollte fragen wie man es realisieren könnte, alle Programme auf einem Datenträger anzeigen zu lassen. z.B. auf dem Datenträger "C:". Das heisst es geht auf C: -> Programme -> Windows etc. und es müsste halt die Ordner selbst runterarbeiten bis zur letzten Datei. Bis jetzt weiss ich nur, wie man nur einen Ordner abfragen kann :

    VB.NET-Quellcode

    1. Try
    3. For Each SubFolder As String In Directory.GetFiles("C:\")
    4. ListBox1.Items.Add(SubFolder)
    5. Next
    7. For Each SubFolder As String In Directory.GetDirectories("C:\")
    8. ListBox1.Items.Add(SubFolder)
    9. Next
    11. Catch ex As Exception
    13. End Try

    Eine alternative Variante, die nach mehreren Dateimustern suchen kann das Ergebnis am Ende sortiert
    und die Rekursion durch einen Stack ersetzt:

    VB.NET-Quellcode

    1. Public Class FileHelper
    2. ''' <summary>
    3. ''' Erstellt eine Dateiliste rekursiv.
    4. ''' </summary>
    5. ''' <remarks>
    6. ''' Es kann nach mehreren Mustern gesucht werden, die durch ";" getrennt werden.
    7. ''' Dateien und Verzeichnisse auf die kein Zugriff besteht werden ausgelassen.
    8. ''' </remarks>
    9. ''' <param name="path">Der Ausgangspfad.</param>
    10. ''' <param name="searchPatterns">Eine Liste von Suchmustern</param>
    11. ''' <returns>eine List&lt;String&gt;</returns>
    12. Public Shared Function FindFilesRecursive( _
    13. ByVal path As String, _
    14. ByVal searchPatterns As String) As List(Of String)
    16. If path Is Nothing Then
    17. Throw New ArgumentNullException("path")
    18. End If
    20. path = path.Trim()
    21. If path.Length = 0 Then
    22. Throw New ArgumentException("path")
    23. End If
    24. If String.IsNullOrEmpty(searchPatterns) Then
    25. Throw New ArgumentNullException("searchPatterns")
    26. End If
    28. ' Anfangspfad vorgeben (hier mögliche Ausnahme)
    29. path = System.IO.Path.GetFullPath(path)
    31. Dim fileList As New List(Of String)
    33. ' Trennen der Suchmuster
    34. Dim searchPatternList As New List(Of String)
    35. For Each pattern As String In searchPatterns.Split(";"c)
    36. pattern = pattern.Trim()
    37. If pattern.Length > 0 Then
    38. searchPatternList.Add(pattern)
    39. End If
    40. Next
    42. If searchPatternList.Count = 0 Then
    43. Return fileList
    44. End If
    46. Dim directoryStack As New Stack(Of String)
    47. directoryStack.Push(path)
    48. ' Verzeichnisse rekursiv (via Stack) durchlaufen
    49. Do While directoryStack.Count > 0
    50. Dim directory As String = directoryStack.Pop()
    52. Try
    53. ' Durchlaufen aller Suchmuster
    54. For Each pattern As String In searchPatternList
    55. ' ... und zur Dateiliste hinzufügen
    56. fileList.AddRange(System.IO.Directory.GetFiles(directory, pattern))
    57. Next
    58. Catch ex As UnauthorizedAccessException
    59. System.Diagnostics.Debug.WriteLine("No File Access " & directory)
    60. ' Kein Zugriff
    61. End Try
    63. ' Einfügen der Unterverzeichnisse in den Stack
    64. Try
    65. For Each subDirectory As String In System.IO.Directory.GetDirectories(directory)
    66. directoryStack.Push(subDirectory)
    67. Next
    68. Catch ex As UnauthorizedAccessException
    69. ' Kein Zugriff
    70. System.Diagnostics.Debug.WriteLine("No Directory Access " & directory)
    71. End Try
    72. Loop
    74. ' Sortiert die Dateinamen
    75. fileList.Sort(StringComparer.OrdinalIgnoreCase)
    76. Return fileList
    77. End Function
    79. ''' <summary>
    80. ''' Kleiner Test zu FindFilesRecursive
    81. ''' </summary>
    82. <Conditional("Debug")> _
    83. Friend Shared Sub FindFileRecursiveTest()
    84. Dim path As String = "E:"
    85. 'Dim searchPatterns As String = "*.wav"
    86. Dim searchPatterns As String = "*.mp3;*.wav;*.wmv;*.wma"
    88. Dim fileList As List(Of String) = FileHelper.FindFilesRecursive(path, searchPatterns)
    89. Dim builder As New System.Text.StringBuilder(128)
    90. For Each name As String In fileList
    91. builder.AppendLine(name)
    92. Next
    94. System.IO.File.WriteAllText("F:\fileslist.txt", builder.ToString())
    95. End Sub
    96. End Class

    Quelle: MSDN Elmar Boye
    Thread

Facebook
Telefonspende