[ابو روضة]

(15-06-19, 09:06 PM)سعود كتب :

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

بصراحة لا اعرف
لكن باذن الله ان ياتي احد لديه معرفة بالكود.
وسابحث ان شاء الله تعالى.
هل النظام ويندوز 10؟

ولا يهمك حبيب قلبى لا النظام ويندوز 7 64 بت...

أشكرك من صميم قلبى والله وربنا لا يحرمنا منك.

[elgokr]

تفضل نفس كود الاخ سعود

ولكن مضاف عليها حذف الملفات بداخل المجلد المحدد فى TextBox1

كود :

       Dim dir As New System.IO.DirectoryInfo(TextBox1.Text)
       For Each d As System.IO.DirectoryInfo In dir.GetDirectories
           If d.Name.ToString.ToLower <> "default" Then
               d.Delete(True)
           End If
       Next
       Dim Fdir As New IO.FileInfo(TextBox1.Text + "\")
       For Each f As System.IO.FileInfo In Fdir.Directory.GetFiles
           If f.Name.ToString.ToLower.Split(".")(1) <> "exe" Then
               f.Delete()
           End If
       Next

الكود يتجنب الملفات التى تنتهى بامتداد exe

فكل ما عليك جلب امتداد الملفات المذكورة فى الصورة ووضعها بدلاً من exe

تحياتى لك

وتمنياتى لك التوفيق

[ابو روضة]

(15-06-19, 11:32 PM)elgokr كتب :

تفضل نفس كود الاخ سعود

ولكن مضاف عليها حذف الملفات بداخل المجلد المحدد فى TextBox1

كود :

       Dim dir As New System.IO.DirectoryInfo(TextBox1.Text)
       For Each d As System.IO.DirectoryInfo In dir.GetDirectories
           If d.Name.ToString.ToLower <> "default" Then
               d.Delete(True)
           End If
       Next
       Dim Fdir As New IO.FileInfo(TextBox1.Text + "\")
       For Each f As System.IO.FileInfo In Fdir.Directory.GetFiles
           If f.Name.ToString.ToLower.Split(".")(1) <> "exe" Then
               f.Delete()
           End If
       Next

الكود يتجنب الملفات التى تنتهى بامتداد exe

فكل ما عليك جلب امتداد الملفات المذكورة فى الصورة ووضعها بدلاً من exe

تحياتى لك

وتمنياتى لك التوفيق

جزاك الله خيراأخى الكريم وبارك الله لك فى كل ما تملك

[elgokr]

(16-06-19, 12:24 AM)ابو روضة كتب :

جزاك الله خيراأخى الكريم وبارك الله لك فى كل ما تملك

لى ولك وللجميع بامر الله

اخى ابو روضة

وكل عام وانت بخير

تحياتى لك

وتمنياتى لك التوفيق