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
Blog of Sem 