Alle Dateien eines Ordners auflisten

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Public Class ListFiles
    ''' <summary>
    ''' Diese Funktion sucht nach allen Dateien in einem Ordner und optional auch in Unterordnern
    ''' </summary>
    ''' <param name="Root">Der Ordner dessen Dateien aufgelistet werden sollen</param>
    ''' <param name="SubFolders">Gibt an ob auch die Unterordner durchsucht werden sollen</param>
    Public Shared Function GetFileList(ByVal Root As String, Optional ByVal SubFolders As Boolean = True) As List(Of String)
        Dim FileList As New List(Of String)
        SeekFiles(Root, FileList, SubFolders)
        Return FileList
    End Function

    Private Shared Sub SeekFiles(ByVal Root As String, ByRef FileArray As List(Of String), ByVal SubFolders As Boolean)
        Try
            Dim Files() As String = System.IO.Directory.GetFiles(Root)
            Dim Folders() As String = System.IO.Directory.GetDirectories(Root)

            For i As Integer = 0 To UBound(Files)
                FileArray.Add(Files(i).ToString)
            Next

            If SubFolders = True Then
                For i As Integer = 0 To UBound(Folders)
                    SeekFiles(Folders(i), FileArray, SubFolders)
                Next
            End If
        Catch Ex As Exception
        End Try
    End Sub
End Class