作爲數組存儲目錄列表vb2008

Question

如何將目錄列表存儲到數組中？我試過這種方法，但這不起作用。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    Dim parentinfo As New DirectoryInfo("C:\myfiles") 

    counter1 = My.Computer.FileSystem.GetFiles("C:\myfiles") 
    dirsize = counter1.Count 

    ReDim directory(dirsize) 

    For Each dir As FileSystemInfo In parentinfo.GetFileSystemInfos() 
     Dim i As Integer = 0 
     directory(i) = dir.Name 
     ComboBox1.Items.Add(directory(i)) 
     i += 1 
    Next dir 

End Sub 

Answer 1

試着做這樣的事情：

Public Sub New() 

    Dim directories As New List(Of DirectoryInfo) 

    Call Me.InitializeComponent() 

    Call Me.ComboBox1.Items.Clear() 
    For Each directory As DirectoryInfo In (New DirectoryInfo("C:\")).GetDirectories() 
     Call directories.Add(directory) 
     Me.ComboBox1.Items.Add(directory.Name) 
    Next 

End Sub 

這將生成一個列表DirectoryInfo的directories對象在指定的路徑中的所有目錄。它還將所有的目錄名稱使用ToArray()擴展方法添加到組合框（在這種情況下Combobox1。

UPDATE

就意識到你問一個數組明確，你可以改變一個列表陣列。所以在這種情況下，你可以調用directories.ToArray()來獲得你的數組，或者你可以使用我寫的一個數組代碼，但坦白地說，爲什麼要使用一個數組，如果你可以使用一個列表？

如果你想用數組來做這裏的代碼：

Public Sub New() 

    Dim i as integer 

    Call Me.InitializeComponent() 

    ReDim directory(i) 
    For Each dir As DirectoryInfo In (New DirectoryInfo("C:\")).GetDirectories() 
     directory(i) = dir 
     Me.ComboBox1.Items.Add(directory.Name) 
     i += 1 
     ReDim Preserve directory(i) 
    Next 

End Sub 

但是我認爲這樣做是背後的痛處......