[mr_hso]

السلام عليكم ورحمة الله
طبتم وطابت ايامكم
كل عام وانتم بخير
كنت قد صمتت برنامج وبه فورم اقوم بجلب ملفات pdf وصور jpg  الى مجلد داخل البرنامج الخاص بي 
ثم قمت بعمل زر حذف للسجل الذي به المرفق 
فقام البرنامج بحذف السجل لكنه لم يحذف المرفق المرتبط به من داخل المجلدات
فما هو الحل
جزاكم الله خيراً

[asemshahen5]

PHP كود :

IO.File.Delete(Application.StartupPath & "\FileName.pdf") 


[mr_hso]

(10-06-19, 01:34 PM)asemshahen5 كتب :

PHP كود :

IO.File.Delete(Application.StartupPath & "\FileName.pdf") 


عفوا اخي الكريم 
الصورة المرتبطة بالسجل لم تمسح
اسف انني لم اضع تلك المعلومة الهامة ( المشروع مرتبط بقاعدة بيانات اكسيس -  الحقل رقم 20 اسم الصورة والحقل رقم 21 مسار الصورة)
ارجوا المساعدة بحيث عندما اضغط على زر الحذف والذي به الكود التالي

كود :

Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
                                    dt.Rows(BindingContext(dt).Position).Delete()
           save_data()
           MsgBox("تم الحذف بنجاح", Title:="تم")
           Close()
       Else
         
       End If
   End Sub

يقوم البرنامج اولاً بالنظر فى الخلية رقم 21 التي بها مسار الصورة وحذفها 
ثم بعد ذلك يقوم بحذف السجل كاملاً 
ارجوا المساعدة 
وشكراً

[asemshahen5]

PHP كود :

Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
        Dim imgPath As String = dt.Rows(BindingContext(dt).Position)("الحقل رقم 21- اسم العامود الموضوع به مسار الصورة").ToString
        If imgPath.Length > 0 Then
            IO.File.Delete(imgPath)
        End If
        dt.Rows(BindingContext(dt).Position).Delete()
        save_data()
        MsgBox("تم الحذف بنجاح", Title:="تم")
        Close()
    End Sub 


[sniperjawadino]

جرب

كود :

       Dim position As Integer = BindingContext(dt1).Position

       If System.IO.File.Exists(dt1.Rows(position).Item(21)) = True Then

           IO.File.Delete(dt1.Rows(position).Item(21))

           dt1.Rows(BindingContext(dt1).Position).Delete()

           save_data()

           MsgBox("تم الحذف بنجاح", Title:="تم")

           Close()
       Else
           MsgBox("هذا الملف غير موجود", Title:="")
       End If

طبعا مسار الصورة يجب أن يكون كاملا مع اسم الصورة
إذا لم يكن كذلك

غير

كود :

dt1.Rows(position).Item(21))

ب

كود :

dt1.Rows(position).Item(21) & "/" & dt1.Rows(position).Item(20)

[mr_hso]

الاخوه [b]asemshahen5[/b]       -     [b]sniperjawadino[/b] 
اشكركم على مجهودكم وانى ممنون جدا لاهتمامكم
لكن كلما اضفت الكود الاول او الثاني تظهر خطاء


An unhandled exception of type 'System.IO.IOException' occurred in mscorlib.dll


Additional information: The process cannot access the file 'E:\kh\kh_20190218\kh_20190218\bin\Debug\pic_db\download (1).jpg' because it is being used by another process.

[asemshahen5]

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

[سعود]

هل الرابط التالي فيه الحل؟!
الرابط التالي

[mr_hso]

(11-06-19, 02:34 PM)asemshahen5 كتب : هذا يعني ان ملف الصورة قيد الاستخدام من قبل عملية أخرى أي اغلق الصورة او اعمل كلير لاداة البكتشر بوكس قبل عملية الحذف .

[b][b][b]استاذ      [/b]asemshahen5       [/b][/b]
[b]شكرا لحضرتك ولصبرك معي[/b]
[b]استاذنك فى كود عمل كلير للبيكتشر بوكس [/b]
[b]انا جربت الكود على فورم تاني وشغال تمام [/b]
[b]اسف لازعاجك[/b]

---

(11-06-19, 02:42 PM)سعود كتب : هل الرابط التالي فيه الحل؟!
الرابط التالي

للاسف استاذ سعود الكود لا يعمل معي 
مشكور

[asemshahen5]

PHP كود :

Private Sub ClearPictureBox(pb As PictureBox)
    pb.Image = Nothing
    pb.BackColor = Color.Empty
    pb.Invalidate()
End Sub 


أو :

PHP كود :

       If Not PictureBox1.Image Is Nothing Then
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Nothing
        End If