[الطالب]

سلام

لازم من تحديد الخاصية 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()