[العطر الرايق]

السلام عليكم ورحمه الله وبركاتة 

يوجد لدى إشكالية تحتاج للحل والبركة فيكم 
       
     داخل مشروعي يوجد اضافة للصور يتم نقلها لمجلد داخل المشروع ويحفظ اسم الصور ومسارها بقاعدة بيانات 
من نوع sql  لجبها وقت الحاجة . ولكن يتم نقل صورة واحدة فقظ في كل مره .

 ماهي الطريقة لأضافة اكثر من صوره دفعة واحد ونقلها لمجلد الصور مع حفظ اسمائها ومسارها . 



وهذا الكود المستخدم في نقل صورة واحدة في كل مرة فقط . وارغب في تعديله 

كود :

Public Sub picpath()
       OpenFileDialog1.Filter = "PNG|*.png|JPG|*.jpg"

       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
           pathcopy = OpenFileDialog1.FileName
           picName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
           pathPaste = Application.StartupPath & "\imge\" & picName
       End If
   End Sub

كود الاضافة 

كود :

 Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click

       picpath()

       Try
           My.Computer.FileSystem.CopyFile(pathcopy, pathPaste)

       Catch ex As Exception

       End Try

   End Sub

ارجو  انه تم فهم المطلوب ومن لديه المعرفة لا يبخل علينا ....ولكم فائق تقديري