FolderBrowserDialog

[mortezamhd]

سلام
من یک برنامه Picture view نوشتم خوب حالا میخوام کاربر نیاد تک تک عکس هارو از طریق OpenFileDialog انتخاب کنه و فقط بیاد فولدر عکسهارو انتخاب کنه که بازدن یک دکمه در فرم عکس بعدی موجود در فولدر انتخابی نمایش داده بشه خوب حالا با FolderBrowserDialog چجوری باید کار کنم ؟؟؟
دوستان لطفا راهنمایی کنید

[tabatabaeefar]

سلام دوست عزيز
كد زير يه پوشه تصوير رو توي يك ليست ويو ميريزه.





Dim strPicAdress as string


FolderBD.ShowDialog(Me)
strPicAdress = FolderBD.SelectedPath


lvPic.Clear()
If FileIO.FileSystem.DirectoryExists(strPicAdress) Then
Dim B as Object
Dim FileName As String = String.Empty
Dim FileType As String = String.Empty
For Each B In FileIO.FileSystem.GetFiles(strPicAdress)
GetFileName(B, FileName, FileType)
If FileType = "jpg" Then
lvPic.Items.Add(FileName)
End If
Next
End If