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

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

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

(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

تحياتى لك

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

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

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