منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] حذف مرفقات من مجلد المرفقات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] حذف مرفقات من مجلد المرفقات (/showthread.php?tid=29779)

الصفحات: 1 2

حذف مرفقات من مجلد المرفقات - mr_hso - 10-06-19

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

RE: حذف مرفقات من مجلد المرفقات - asemshahen5 - 10-06-19

PHP كود :
IO.File.Delete(Application.StartupPath & "\FileName.pdf") 


RE: حذف مرفقات من مجلد المرفقات - mr_hso - 11-06-19

(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 التي بها مسار الصورة وحذفها 
ثم بعد ذلك يقوم بحذف السجل كاملاً 
ارجوا المساعدة 
وشكراً

RE: حذف مرفقات من مجلد المرفقات - asemshahen5 - 11-06-19

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 


RE: حذف مرفقات من مجلد المرفقات - sniperjawadino - 11-06-19

جرب

كود :
       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)


RE: حذف مرفقات من مجلد المرفقات - mr_hso - 11-06-19

الاخوه [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.

RE: حذف مرفقات من مجلد المرفقات - asemshahen5 - 11-06-19

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

RE: حذف مرفقات من مجلد المرفقات - سعود - 11-06-19

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

RE: حذف مرفقات من مجلد المرفقات - mr_hso - 12-06-19

(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)سعود كتب : هل الرابط التالي فيه الحل؟!
الرابط التالي

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

RE: حذف مرفقات من مجلد المرفقات - asemshahen5 - 12-06-19

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