[messry]

السلام عليكم



الكود التالي لالغاء كل الملفات التي بداخل فولدر picture  الموضوع في مجلد البرنامج

       For Each file_path As String In Directory.GetFiles(CurDir() & "\picture\")
           Try
               File.Delete(file_path)
           Catch ex As Exception
           End Try
       Next

هذا الجزء خاص بحفظ الصورة
       Dim myimage As Image = PictureBox1.Image
       Dim FPath As String = CurDir() & "\picture\"
       myimage.Save(FPath & "ضع هنا اسم الصور" & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

هذا الكود لجلب الصورة الموجودة الى مربع الصورة في الفورم
       PictureBox1.Image = Image.FromFile(مساء الصورة مع اسمها & ".jpg")