Problème manipulation d'array

Version imprimable

Bonjour, j'ai un problème dans la manipulation d'un Array, étant grand débutant en VB et comprenant à moitié ce que je fais .. pas étonnant !
Je remplis une combobox avec les sous-dossiers de C:\Drivers et ensuite je cherche à afficher chaque dossier avec une MsgBox
Code:

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 Private Sub bt_Send3_Click(sender As System.Object, e As System.EventArgs) Handles bt_Send3.Click 'Fill the ComboBox3 with directories of C:\Drivers Dim getMachin As String = "C:\Drivers" For Each directoryJob As String In Directory.GetDirectories(getMachin) Me.ComboBox3.Items.Add(directoryJob) Next Dim myArray() As System.Object = New Object() 'Clear myArray Array.Clear(myArray, 0, myArray.Count) 'Copy the ComboBox3 items starting at zero ComboBox3.Items.CopyTo(myArray, 0) For Each nom As String In myArray MsgBox(nom) Next End Sub
Et donc à la ligne "Dim myArray() As System.Object = New Object()" il me sort l'erreur : "Impossible d'effectuer un cast d'un objet de type 'System.Object' en type 'System.Object[]'.". J'ai beau chercher dès que je change quelque chose il me sort une erreur à une autre ligne .. J'ai du foirer quelque chose en beauté :mrgreen:

Si quelqu'un pouvait m'aider .. merci!

Bonjour,

Citation:

Envoyé par tardmonkey

Je remplis une combobox avec les sous-dossiers de C:\Drivers et ensuite je cherche à afficher chaque dossier avec une MsgBox

Tu peux parcourir la collection de la combobox

Code:

1
2
3
4
5
6
7
8
        Dim getMachin As String = "C:"
        For Each directoryJob As String In Directory.GetDirectories(getMachin)
            Me.ComboBox3.Items.Add(directoryJob)
        Next
 
        For Each nom As String In Me.ComboBox3.Items
            MsgBox(nom)
        Next

Sinon il est préférable d'utiliser une liste plutôt qu'un tableau

Code:

1
2
3
4
5
6
7
8
9
10
        Dim lst As List(Of String) = New List(Of String)
        Dim getMachin As String = "C:"
        For Each directoryJob As String In Directory.GetDirectories(getMachin)
            Me.ComboBox3.Items.Add(directoryJob)
            lst.Add(directoryJob)
        Next
 
        For Each nom As String In lst
            MsgBox(nom)
        Next

A+, Hervé.

20/12/2012, 16h24
tardmonkey

Merci ! Clair et rapide :)