Как поместить все элементы массива String в очередь (Of String)?

Question

Я хочу поместить все элементы массива String в очередь (Of String).У меня есть следующий код, который использует For ... Каждый для помещения строки в очередь (Of String):

    Dim Files() As String = OpenFileDialog1.FileNames
    'OpenFileDialog1 is an instance of OpenFileDialog control

    Dim PendingFiles As New Queue(Of String)

    For Each x1 As String In Files
        PendingFiles.Enqueue(x1)
    Next

Мой вопрос: возможно ли это сделать (т.е. положить массив строк в очередь (из строки) ) без использования для ... каждого ?

Answer 1

Используйте конструктор Queue<T>, который принимает IEnumerable<T>.

Dim PendingFiles As New Queue(Of String)(Files)