Ik zit met een probleempje,
Ik zou willen dat de tekstfiles die ik een listbox komen te staan lstwoorden opslaan in een tekstbestand maar weet niet hoe ik dat moet doen. Ik zie de files wel staan in een array. strFiles = Directory.GetFiles(strPath) maar kan er geen data uithalen en deze opslaan in een tekstbox of listbox. Weet iemand raad. Zie hier de code zoals deze nu is.
Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click
Dim strPath As String = "D:\Data_visual_studio_2005\E2Ford"
Dim strFiles() As String
Dim oRead As StreamReader
If Directory.Exists(strPath) Then
strFiles = Directory.GetFiles(strPath)
For i As Integer = LBound(strFiles) To UBound(strFiles)
oRead = File.OpenText(strFiles(i))
controle = strFiles(i)
Me.lstwoorden.Items.Add(oRead.ReadLine())
oRead.Close()
Next
End If
End Sub
Dank bij voorbaat.
Ik zou willen dat de tekstfiles die ik een listbox komen te staan lstwoorden opslaan in een tekstbestand maar weet niet hoe ik dat moet doen. Ik zie de files wel staan in een array. strFiles = Directory.GetFiles(strPath) maar kan er geen data uithalen en deze opslaan in een tekstbox of listbox. Weet iemand raad. Zie hier de code zoals deze nu is.
Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click
Dim strPath As String = "D:\Data_visual_studio_2005\E2Ford"
Dim strFiles() As String
Dim oRead As StreamReader
If Directory.Exists(strPath) Then
strFiles = Directory.GetFiles(strPath)
For i As Integer = LBound(strFiles) To UBound(strFiles)
oRead = File.OpenText(strFiles(i))
controle = strFiles(i)
Me.lstwoorden.Items.Add(oRead.ReadLine())
oRead.Close()
Next
End If
End Sub
Dank bij voorbaat.