Foro de elhacker.net

Disculpen la pregunta el problema es que soy novato en este lenguaje,  estoy tratando de capturar los item de un listbox y pasarlo a una variable pero no lo e logrado, e encontrado algunas cosas en la web pero me dan error.
Esto es algo de lo que e encontrado:

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i)
Next i
End Sub
 

Hola

El código que has mostrado es para VB6, no para VB.NET. Por favor, expecifica que lenguaje estás utilizando. Y cuando formules una pregunta de programación sobre un error, intenta siempre mencionar de que error se trata... no somos magos y es una información esencial para poder ayudar al que necesita esa ayuda.

Un saludo!

Disculpa, como les dije soy novato en este lenguaje, estoy usando VB.net.  Ya logre quitar el error, pero como lo paso el contenido del listbox a la variable: Esto es lo que tengo...

Dim Dr As String
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Dr = FolderBrowserDialog1.SelectedPath
For Each arq As String In Directory.GetFiles(Dr, "*.*", SearchOption.AllDirectories)
ListBox1.Items.Add(arq)
Next
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
MsgBox(ListBox1.Items(i))
Next i
 

Deduzco que despues de agregar los nombres de los archivos al ListBox pretendes almacenarlos en otro objeto, o al menos eso es lo que me das a entender con la pregunta que has hecho, pero por sentido común el procedimiento debe realizarse al revés, primero trata de almacenar la información obtenida la en un contenedor (en un Array o en una colección de tipo List) y eso lo usarás para representar la información a mostrar en el ListBox.

Puedes hacerlo de la siguiente manera:

Dim dirpath As String = Environment.CurrentDirectory
Dim filepaths As String() = Directory.GetFiles(dirpath, "*", SearchOption.AllDirectories)
 
Me.ListBox1.DataSource = filepaths
 
' For Each filepath As String In filepaths
'     Console.WriteLine(filepath)
' Next filepath

Saludos!

Gracias nuevamente, me sirvió lo que me diste