تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود يحذف جميع الملفات بداخل المجلد
#1
السلام عليكم ورحمه الله وبركاته ..

أنا عضو جديد في ساعه الدوت نت كبدايه أحتاج شوي تعليم حتي يمكنني الخوض فالبرمجة
محتاج كود يحذف جميع الملفات بداخل المجلد ويكون عن طريق هذي الادوأت

1- button
2- CheckBox1

طبعا أريد اضيف اكثر من CheckBox وعند عمل عليه علامه والضغط علي بوتون يمسح الملف وعند تحديد الجميع والضغط علي بوتون يمسح الجميع

أن شاءالله الفكرة وصلت ..

في أنتظاركم
الرد }}}
تم الشكر بواسطة:
#2
استخدم الأمر My.Computer.FileSystem.DeleteFile لحذف ملف
الرد }}}
تم الشكر بواسطة:
#3
لو في مثال على الفكره يكون أحسن
الرد }}}
تم الشكر بواسطة:
#4
أنا استخدمت هذا الامر


كود :
Dim dirs() As DirectoryInfo = {New DirectoryInfo(
كود :
"PATH1"
كود :
), New DirectoryInfo(
كود :
"PATH2"
كود :
), New DirectoryInfo(
كود :
"PATH3"
كود :
)}
كود :
        
كود :
For Each dr In dirs
كود :
            
كود :
For Each fn As FileInfo In dr.GetFiles
كود :
                
كود :
File.Delete(fn.FullName)
كود :
            
كود :
Next
كود :
        
كود :
Next

لكن ماعرفت اخصصها في اداه لحالها واضيفها هنا CheckBox
الرد }}}
تم الشكر بواسطة:
#5
أين انتو يا أخوة
الرد }}}
تم الشكر بواسطة:
#6
غريبة مافي آحد يعرف
الرد }}}
تم الشكر بواسطة:
#7
وعليكم السلام ورحمة الله وبركاته

فى البداية لاتمام حذف الملفات بطريقة الحذف النهائي 
او الحذف بارسال الملف الى سلة المحذوفات فاتبع الرابط التالى

ناتى الان الى كيفية استخدام الكود الموضح بالاعلى خاصة
كود :
       Dim dirs() As System.IO.DirectoryInfo = {New System.IO.DirectoryInfo("PATH1"), New System.IO.DirectoryInfo("PATH2"), New System.IO.DirectoryInfo("PATH3")}
       For Each dr In dirs
           For Each fn As System.IO.FileInfo In dr.GetFiles
               System.IO.File.Delete(fn.FullName)
           Next
       Next

لنقول ان لدى CheckBox وظيفته مثل موافقة الشروط والاحكمام 
وهو عبارة عن عند الموافقة على الشروط سيتم حذف الملف نهائياً

هنا اليك اكثر من طريقة للاستخدام
وهو ان تجعل الـ Button من خصائصه Enabled بقيمة False
وعند تحديد علامة صح على CheckBox يقوم بتحويل الـ Button لخصائصه Enabled الى True

وهو من خلال الكود التالى
كود :
   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
       If CheckBox1.Checked = True Then
           Button1.Enabled = True
       Else
           Button1.Enabled = False
       End If
   End Sub

الى هنا لا يوجد مشكلة الان بكده انت ليس بحاجة الى التعديل على الكود الخاص بك
طيب اذا كنت لا اريد استخدام هذه الطريقة واريد مباشر من خلال كود الـ Button

فكل ما عليك جعل الكود بهذا الشكل
كود :
       Dim dirs() As System.IO.DirectoryInfo = {New System.IO.DirectoryInfo("PATH1"), New System.IO.DirectoryInfo("PATH2"), New System.IO.DirectoryInfo("PATH3")}
       For Each dr In dirs
           For Each fn As System.IO.FileInfo In dr.GetFiles
               If CheckBox1.Checked = True Then
                   System.IO.File.Delete(fn.FullName)
               End If
           Next
       Next

اتمنى ان تكون الصورة وضحت لك كاملاً
واتمنى ان الرابط بالاعلى يفيدك ايضاً للتعامل مع حذف الملفات

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: essawq , essawq , ابو روضة
#8
كود :
If CheckBox1.Checked = True Then
           Dim txtFilesArray As String() = IO.Directory.GetFiles("path", "*.*")

           For Each p In txtFilesArray
               IO.File.Delete(p)
           Next

       End If

       If CheckBox2.Checked = True Then
           Dim txtFilesArray1 As String() = IO.Directory.GetFiles("path", "*.*")

           For Each p In txtFilesArray1
               IO.File.Delete(p)
           Next
       End If


شكراً لك [b]elgokr تم الحل بالطريقه هذي[/b] ..
الرد }}}
تم الشكر بواسطة: elgokr
#9
الشكر لله
واحسنت عملاً فى طرح الحل الذى استخدمته
حتى تعم اكثر من حلول للاخرين

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  متغيرات اسماء الملفات atefkhalf2004 1 337 15-11-23, 02:40 PM
آخر رد: atefkhalf2004
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  سؤال حول اغلاق جميع النوافذالمفتوحة maherhaddaf 3 455 20-07-23, 08:48 AM
آخر رد: maherhaddaf
  أريد كود لغلق جميع النوافذ عند تسجيل الخروج Emam emam 2 502 10-07-23, 02:12 AM
آخر رد: Emam emam
  ترتيب الملفات Osama NY 1 252 25-04-23, 08:13 PM
آخر رد: aljzazy
  التعامل مع الملفات النصية - حذف سطر معين من ملف mmaalmesry 2 583 20-01-23, 09:29 AM
آخر رد: mmaalmesry
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 41 47,787 20-12-22, 01:20 AM
آخر رد: kebboud
  [VB.NET] هل يوجد طريقة لجعل البرنامج يظهر فوق جميع البرامج mohamedahmed1 3 787 31-10-22, 01:26 AM
آخر رد: mohamedahmed1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم