VB.NET Multi file open issue

Question

Я новичок в vb.net, и я хочу создать простую программу, содержащую опцию с несколькими файлами. Я нашел это видео youtube: https://www.youtube.com/watch?v=8_pK0blSQr4 Когда я запустил это, итератор делает дополнительную итерацию, которая вызывает ошибку. Я попытался уменьшить число циклов обработки на единицу, но это не сработало, цикл for перешел к исходному значению.

Что я делаю неправильно?

Private Sub load_acc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles load_acc.Click 
    OpenFileDialog1.Filter = "Text file|*.txt|All files| *.*" 

    If OpenFileDialog1.ShowDialog = DialogResult.OK Then 
     For x = 0 To (OpenFileDialog1.FileName.Count - 1) 
      acc_list.Items.Add(OpenFileDialog1.FileNames(x)) 
     Next 

    End If 
End Sub 

Answer 1

Я думаю, что вы хотите

For x = 0 To (OpenFileDialog1.FileNames.Count - 1) 

(обратите внимание на "S" на FileNames) вместо

For x = 0 To (OpenFileDialog1.FileName.Count - 1) 

Answer 2

Вы можете использовать для каждого вместо

For each file as string in OpenFileDialog1.FileNames 
     acc_list.Items.Add(file) 
    Next