1 | Dim finfo As New IO.DirectoryInfo("C:\Story") |
2 | For Each fi In finfo.GetFiles |
3 | Listbox1.Items.Add(fi.FullName) |
4 | Next |
ayrıca textboxun multilineni acıncada yapılabilir
1 | Dim finfo As New IO.DirectoryInfo("C:\Story") |
2 | For Each fi In finfo.GetFiles |
TextBox2.AppendText(myFolder & sFileExtension & Environment.NewLine) 'pcye kaydedilen yer
Next
