vb.net - インデックスが配列の範囲外でした - VB2008

Question

このエラーが発生し続けるのはなぜですか: インデックスが配列の範囲外でした。助けてください。ありがとうございました。

 Dim list As New ListBox
 Dim dirsize As Integer
 Dim a As Integer
 Dim container(0) As String

 Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
 counter = My.Computer.FileSystem.GetFiles("C:\myfolder")
 dirsize = counter.Count

 For a = 0 To dirsize

     container(a) = a + 1
     lstItems.Items.Add(container(a))

 Next

Answer 1

基本的containerに、サブの最初に暗くする要素は1つだけです。コンテナのサイズを変更することはないため、dirsize0以外の場合は、このエラーが発生します。

次のようなことをする必要があります。

 Dim list As New ListBox
 Dim dirsize As Integer
 Dim a As Integer
 Dim container() As String

 Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
 counter = My.Computer.FileSystem.GetFiles("C:\myfolder")
 dirsize = counter.Count

 **ReDIm container(dirsize)**
 For a = 0 To dirsize

     container(a) = a + 1
     lstItems.Items.Add(container(a))

 Next