بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
لقد قمت ببداياتي ببرمجة أداة بسيطة لحذف ملفات الخصوصية على حاسوبك وكذلك بحذف ملفات الخصوصية للإنترنت
وها أنا أقوم بعرض السورس كود هنا ,,,, لكني لن أقوم بشرح التعامل مع ال CheckBox فهو موضوع سهل جداً وسوف يأخذ مني الكثير من الوقت
بسم الله الرحمن الرحيم ,, ولنبدأ
سوف أكتب فوراً شيفرة البوتون CleanUp
أول خيار في البرنامج هو إفراغ ال Clipboard :
My.Computer.Clipboard.Clear()
الأمر الثاني هو حذف محتويات سلة المحذوفات ,,, واللغز هنا في مسار الملفات الموجودة فس سلة المحذوفات ؟؟
My.Computer.FileSystem.CurrentDirectory= "C:\Recycler"
Shel ("cmd /cdel *.* /q/s/f",AppWinStyle.AutoHide)والآن لماذا استخدمت الدوز رغم وجود الدالة DeleteFile والدالة Kill
صراحة لهاتين الدالتين ,, مرض صغير ,, وهو إذا واجههما ملف ممنوع من الحذف ,, فتتوقف عملية الحذف نهائياً ويعطي خطأ
الآن لحذف المستندات الأخيرة كسابقتها مع تغيير المسار ولكننا هنا نريد معرفة اسم اليوزر نيم
Dim rName As String = My.Computer.Name
Dim lSlash As Integer = rName.IndexOf("\")
Dim fName As String = rName.Substring(lSlash)
My.Computer.FileSystem.CurrentDirectory= "C:\Documents and Settings" & fName & "Recent"
Shel ("cmd /cdel *.* /q/s/f",AppWinStyle.AutoHide)وهكذا كل الطرائق كذلك الأمر
وصراحة اني أعتذر على هذا الشرح المختصر - حيث أني اعتبره وافياً - فوقتي ضيق
وانتظر أسألتكم وتعليقاتكم وانتقاداتكم وتقييمكم
وأما بالنسبة لملف البرنامج التنفيذي فها هو مرفق
السلام عليكــم ورحمـة الله وبركاتــه ،،