أواب قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 إخواني الأفاضل: وجدت بثلاث كلمات تنظف جهازك من الملفات التي تبطئ جهازك اتبع الخطوات التالي : 1- نذهب الي start ثم اضغط علي Run ثم اكتب الامر prefetch فتظهر لك هذه الملفات ثم تظلل عليها كلها تم مسح . 2- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر Recent فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح . 3- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر %tmp% فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح . والسؤال الآن هل بالإمكان فعل ذلك باستخدام الكود في الأكسس ؟ رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 (معدل) 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 اضافة أكواد - لم يتم تجربتها رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 مشاركة مع أستاذى @Foksh تفضل test1.rar 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 يوجد طريقة أخرى من ابتكاري ، ولكن دعني أجربها لضمانها 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 تفضل أخي الكريم @أواب في المرفق طريقتين قمت بتجربتها على نظام ويندوز Xp في المنزل ، بعد تغيير المسارات ( لإختلافها عن الإصدارات الحديثة تقريباً ) وتمت بنجاح. الفكرة مبنية على إنشاء ملف bat. وتشغيله وحذفه بعد ذاك . Cleaner.accdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.