دادن مسیر یک پوشه به file dialog

[mehran5]

من میخوام از طریق file dialog یا هر چی دیگه مسیر یک پوشه رو به یه متغیر بر گردونم تا هر چی داخل پوشه هست رو در یک لیست باکس نشون بدم.ممنون میشم کسی کمکم کنه؟

[rooshan2008]

سلام

 

Dim  Fb  AsNew  FolderBrowserDialog

Dim  listbox1  AsNew  ListBox

Private  Sub  Form1_Load(ByVal sender  As  System.Object, ByVal  e  As System.EventArgs)  HandlesMyBase.Load

''create list box
 

listbox1.Parent =  

Me



listbox1.Show()

'---------------

Fb.ShowDialog()

If  FileIO.FileSystem.DirectoryExists(Fb.SelectedPath)  Then

For Each  s  In FileIO.FileSystem.GetFiles(Fb.SelectedPath)

listbox1.Items.Add(s)

Next

End  If

End Sub


 

من قبلاً یه کنترول نوشته بودم :البته برای تمام فایل ها و پوشها هر مسیری با زیر پوشها .....

اینم لینکش :
https://barnamenevis.org/showthread.php?t=127838

[mehran5]

ممنون حالا اگه بحوایم فقط اسم فایلها در لیست باکس نشون داده بشه باید چه کا رکنیم؟