[ابو روضة]

(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

تحياتى لك

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

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