تنظيف الجهاز

[أواب]

إخواني الأفاضل:

وجدت بثلاث كلمات تنظف جهازك من الملفات التي تبطئ جهازك
اتبع الخطوات التالي :
1- نذهب الي start ثم اضغط علي Run ثم اكتب الامر prefetch
     فتظهر لك هذه الملفات ثم تظلل عليها كلها تم مسح .
2- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر Recent
     فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح .
3- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر %tmp%
     فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح .

والسؤال الآن

هل بالإمكان فعل ذلك باستخدام الكود في الأكسس ؟

[Foksh]

34 دقائق مضت, أواب said:

2- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر Recent
     فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح .

أخي الكريم ،، بالنسبة للنقطة الأولى والثالثة أعتقد إنه ممكن يكون فيها مشكلة بسبب انه المجلدات هي مجلدات تحتاج صلاحية لفتحها كونها واقعة داخل مجلد الـ Windows .

أما النقطة الثانية فتفضل هذا الكود ؛ ضعه في حدث عند النقر لأي زر تريد :-

On Error Resume Next
    Dim recentPath As String
    recentPath = Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Windows\Recent\"
    If Dir(recentPath, vbDirectory) <> "" Then
        Shell "cmd /c echo Y | cacls """ & recentPath & """ /T /C /P Everyone:F", vbHide
        Kill recentPath & "*.*"
        MsgBox ". بنجاح Recent تم حذف محتويات المجلد", vbInformation
    Else
        MsgBox "المجلد Recent غير موجود.", vbExclamation
    End If
    On Error GoTo 0

 

جرب الكود التالي لحذف الملفات في %temp%

On Error Resume Next
    Dim tempPath As String
    tempPath = Environ("LOCALAPPDATA") & "\Temp\"
    If Dir(tempPath, vbDirectory) <> "" Then
        Shell "cmd /c takeown /f """ & tempPath & """ /r /d y && icacls """ & tempPath & """ /grant administrators:F /t", vbHide
        Kill tempPath & "*.*"
        RmDir tempPath
        MsgBox "تم حذف محتويات مجلد Temp بنجاح.", vbInformation
    Else
        MsgBox "المجلد Temp غير موجود.", vbExclamation
    End If
On Error GoTo 0

 

وهذا الكود للمجلد Prefetch

On Error Resume Next
    Dim prefetchPath As String
    prefetchPath = "C:\Windows\Prefetch\"
    If Dir(prefetchPath, vbDirectory) <> "" Then
        Shell "cmd /c takeown /f """ & prefetchPath & """ /r /d y && icacls """ & prefetchPath & """ /grant administrators:F /t", vbHide
        Kill prefetchPath & "*.*"
        MsgBox "تم حذف محتويات مجلد Prefetch بنجاح.", vbInformation
    Else
        MsgBox "المجلد Prefetch غير موجود.", vbExclamation
    End If
On Error GoTo 0

 

تم تعديل ديسمبر 10, 2023 بواسطه Foksh
اضافة أكواد - لم يتم تجربتها

[محمد احمد لطفى]

مشاركة مع أستاذى @Foksh

تفضل
 

test1.rar

[Foksh]

يوجد طريقة أخرى من ابتكاري ، ولكن دعني أجربها لضمانها

[Foksh]

تفضل أخي الكريم @أواب

في المرفق طريقتين قمت بتجربتها على نظام ويندوز Xp في المنزل ، بعد تغيير المسارات ( لإختلافها عن الإصدارات الحديثة تقريباً ) وتمت بنجاح.

الفكرة مبنية على إنشاء ملف bat. وتشغيله وحذفه بعد ذاك .

Cleaner.accdb