add کردن فایل با folder browse dialog

[xxnagin]

سلام عید همه مبارک
من می خوام با folder browse dialog فایل add کنم ولی تا دو تا ستون در list view بیشتر نمیشه add کرد و ستون سوم دیگه نمیشه

fbd.ShowDialog()
Dim dir As New IO.DirectoryInfo(fbd.SelectedPath)
For Each f In dir.GetFiles
ListView1.Items.Add(f.Name).SubItems.Add(f.FullNam e)
Next

نمیشه از Dim item As New ListViewItem استفاده کرد
ولی با این کد که میخوام نمیشه

fbd.ShowDialog()
Dim dir As New IO.DirectoryInfo(fbd.SelectedPath)
Dim item As New ListViewItem
For Each f In dir.GetFiles
item.Text = f.Name
item.SubItems.Add(f.FullName)
item.SubItems.Add(f.Extension)
Next
ListView1.Items.Add(item)

میخوام ببینم راه دیگه ای هست یا نه

[ROSTAM2]

مشکل شما استفاده از FOLDER BROWS DLG نیست

For Each f In dir.GetFiles
WITH ListView1.Items.Add(f.Name)
.SubItems.Add(f.FullName)
.SubItems.Add(f.Extension)
END WITH
Next
تغییرش بده ببینیم چطور می شه