[قناص المدينة]

اريد ان اضيف مجموعة من الملفات دفعة واحده  الى  ListView 
على ان يظهر الاسم والمسار .. الخ 

سويتها والمشكلة انه لا يقبل الا ملف واحد

[سعود]

إستخدم folderbrowserdialog

[hassan]

تفضل هاذا الكود كامل

If FolderBrowserDialog1.ShowDialog() Then
sel = FolderBrowserDialog1.SelectedPath
End If
For Each aa As String In IO.Directory.GetFiles(sel)
ListView1.Items.Add(aa)
Next


اول شي ضيف اداة FolderBrowserDialog

[الطالب]

سلام

لازم من تحديد الخاصية multiselect والملفات المتعددة تقلاها في filenames وليس في filename لاحظ يفرق حرف s

وهذا مثال بالكود

كود :

Dim op As New OpenFileDialog
op.Filter = "Images (*.jpg,*.png)|*.jpg;*.png"
op.Multiselect = True
If op.ShowDialog = vbOK Then
   For Each f As String In op.FileNames
       MsgBox(f)
   Next
End If
op.Dispose()

[قناص المدينة]

اشكركم على المرور 
 وبخصوص لازم من تحديد الخاصية multiselect و  filenames  جاهزة انا سويتها في الجريد فيوا وشغاله ما في اي مشكلة ولكن حين حاولت اجعلها على ليست فيو ظهارات المشاكل راح اجربها او ارفق لك المثال .


وجمعتكم مباركة .