(15-06-19, 09:06 PM)سعود كتب : [ -> ]إقتباس :ازاى احذف بقى كل هذه الملفات والفولدرات المتعلم عليها داخل المجلد هذا واترك فقط بداخلة هذين الملفين ؟
بصراحة لا اعرف 
لكن باذن الله ان ياتي احد لديه معرفة بالكود.
وسابحث ان شاء الله تعالى.
هل النظام ويندوز 10؟
ولا يهمك حبيب قلبى لا النظام ويندوز 7 64 بت...
أشكرك من صميم قلبى والله وربنا لا يحرمنا منك.
تفضل نفس كود الاخ سعود
ولكن مضاف عليها حذف الملفات بداخل المجلد المحدد فى
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
تحياتى لك
وتمنياتى لك التوفيق
جزاك الله خيراأخى الكريم وبارك الله لك فى كل ما تملك