الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]كيف اعمل برنامج يقوم بحذف ملفات معينه ......

بدأه mhb300 في 2 سبتمبر 2008 · 18 رد · 2,561 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي برنامجي اسمه MAIN وفيه زرين.....

اريد الزر الاول اذا ضغط عليه يقوم بحذف الملفات داخل الملف A

والزر الثاني اذا ضغطت عليه اريد يقوم بحذف الملف A نفسه .......

علما ان الملف A قد يكون في اي مكان يعني في ملفات الC او في الD ..... يعني اريد البرنامج يحدد موقعه اولا ثم يقوم بالحذف ....

ارجوا من اصحاب الخبره مساعدتي في ذلك ولكم جزيل الشكر ....... ....... ........ :D ورمضان كريم :D

18qb6.gif

MHB.rar

تم تعديل هذه المشاركة بواسطة mhb300 في 2 سبتمبر 2008 في 23:34

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#2

اخي الفاضل محمد حسين

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

تم عمل المثال بناء على طلبك

post-15367-1220441622_thumb.gif

MHB.rar

ملاحظة : يوجد مجلد فرعي بإسم A به عدد 4 ملفات نصية

#3

وعليكم السلام ورحمه الله وبركاته .........اشكرك يا استاذتي الكريمه على الاجابه الكريمه في الشهر الكريم .....

الاجابه جميله جدا واحتاجها في الواقع ولكن ...(ولكن هذي هي التي سوي مشاكل) ولكن لدي عده ملاحظات:

1. اتمنى ان يكون البحث عن الملف اوتوماتيكي ... البرنامج يقوم بالبحث عن اسم الملف اوتوماتيكي ولا يحتاج ان ادخله من شاشه الهرض ...

2. اذا كان ملف A يوجد بداخله ملفات (Folder) لن يتمكن البرنامج من حذفه ولا حتى حذف المجلدات التي بالداخل ...!!!!!!!! وانا اريده ان يحذف مجلد A بالمجلدات التي داخله مهما كانت ..

ارجوا ان تساعدوني لحل هذه المشكله ولكم جزيل الشكر ....... واشكرك مره اخرى استاذه زهراء على تجاوبك

تم تعديل هذه المشاركة بواسطة mhb300 في 3 سبتمبر 2008 في 15:03

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#4
mhb300 كتب:
1. اتمنى ان يكون البحث عن الملف اوتوماتيكي ... البرنامج يقوم بالبحق عن اسم الملف اوتوماتيكي ولا يحتاج ان ادخله من شاشه الهرض ...

بالنسبة للبحث عن اسم المجلد فيجب اعطائنا اسم المجلد المطلوب بالضبط ولا يوجد مشكله في كود البحث فيمكن كتابته بكل سهوله و سوف يقوم بإحضار اسم المجلد المطلوب من اي مكان من جهاز الكمبيوتر ولكن ستكون مشكلة الوقت اثناء عملية البحث عن هذا المجلد فقد تستغرق عملية البحث حوالي ساعة كاملة و قد يصادف ان يكون هناك مجلدات مثلا zahrah او NewFolder بنفس الإسم في اماكن اخرى على محركات الأقراص وبالتالي سيتم حذفها بالخطأ ولا تكون هي المجلدات المطلوبه .

لذا ارى ان طريقة استعراض المجلد المطلوب في غاية المرونه والسهوله واسرع بكثير من عملية البحث الأوتوماتيكية وإن اردت التجربه فجرب على خاصية البحث الموجوده لديك في الويندوز بحيث تضع المجلد مثلا AA في محرك الأقراص E ثم قم بعملية البحث عن هذا المجلد في كامل جهاز الكمبيوتر وانظر الى الوقت الذي سوف تستغرقه عملية البحث .

mhb300 كتب:
2. اذا كان ملف A يوجد بداخله ملفات (Folder) لن يتمكن البرنامج من حذفه ولا حتى حذف المجلدات التي بالداخل ...!!!!!!!! وانا اريده ان يحذف مجلد A بالمجلدات التي داخله مهما كانت ..

لا يوجد مشكله اخي الكريم في عمل هذا حتى لو تريد ان نقوم بعمل كود يحذف كل شيء لديك في الكمبيوتر ويتركه على الـ Zero

المشكلة يا أخي في عملية البحث عن المجلد في جهاز الكمبيوتر سوف تأخذ وقت طويل جدا لأنه سيتم البحث في جميع محركات اقراص الكمبيوتر بدون استثناء لأنك لم تحدد معيار للبحث سوى اسم المجلد .

ملاحظة : لا اعلم ما هو السبب في هذا الطلب الغريب ولأي برنامج تريد استخدام هذه الطريقة لأن مثل هذا الموضوع خطير وقد يتسبب في حذف عدة مجلدات ولملفات بطريق الخطأ وبعدها لا يمكن التراجع عن العملية لإلا في حالة إنك لم تقم بحذف عملية تأكيد الحذف .

اتمنى ان توضح لنا بالضبط ما هو المطلوب من البرنامج لنكون على بينة بما سوف نعمله لك .

#5

اشكرك استاذه زهراء على الشرح والتوضيح الجميل .......

اقتباس
ستكون مشكلة الوقت اثناء عملية البحث عن هذا المجلد فقد تستغرق عملية البحث حوالي ساعة كاملة
....... اها ..... :blink: :blink: :blink: .... اذا لماذا الكراك سريع في ايجاد موقع ملف البرنامج المصمم له ....... :blink: :huh: .... (اعتقد ان الوضع الى هنا يتعقد) .....

هذه يمكن التجاوز عنها ولاسيما انها ستستغرق ساعات .. :D

اقتباس
لا يوجد مشكله اخي الكريم في عمل هذا حتى لو تريد ان نقوم بعمل كود يحذف كل شيء لديك في الكمبيوتر ويتركه على الـ Zero

(هههههههه) :haha: ..........والله اذا في اداة تحذف الفايروسات على ال Zero اكون شاكر لك ... لان الصراحه كل يوم طالع فيروس يخرب بيت الدنيا وشركات الحمايه نايمه

اقتباس
2. اذا كان ملف A يوجد بداخله ملفات (Folder) لن يتمكن البرنامج من حذفه ولا حتى حذف المجلدات التي بالداخل ...!!!!!!!! وانا اريده ان يحذف مجلد A بالمجلدات التي داخله مهما كانت ..
هذه النقطه مهمه جدا وربما لم اوضح المقصود .................... ....

المقصود هو لو يوجد ملف داخل ملف ال A ويوجد ايضا مذكرات وغيره ... بعد ضغط زر الحذف الذي سينحذف فقط المذكرات اما المجلد الذي داخل مجلد A لن ينحذف .... في المرفقات التوضيح ....

اقتباس
ملاحظة : لا اعلم ما هو السبب في هذا الطلب الغريب

في الحقيقه انا فكرت اني اعمل اداة صغيره لحذف الTemp و الCookies وغيره من الملفات التي تتراكم في الجهاز وليست لها فائده ....

فقط هذا مقصدي ....واشكرك على متابعتك الموضوع .....

MHB.rar

تم تعديل هذه المشاركة بواسطة mhb300 في 3 سبتمبر 2008 في 16:20

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#6
mhb300 كتب:
....... اها ..... :blink: :blink: :blink: .... اذا لماذا الكراك سريع في ايجاد موقع ملف البرنامج المصمم له ....... :blink: :huh: .... (اعتقد ان الوضع الى هنا يتعقد) .....

هذه يمكن التجاوز عنها ولاسيما انها ستستغرق ساعات .. :D

بارك الله بك اخي محمد

بالنسبة للكراك الخاص بالبرامج فطريقته واضحه جدا وليس بها اي تعقيد حيث يقوم المبرمج او الكراكر الذي يقوم بكسر حمايات البرامج بواسطة استخدام برامج النتقيح او الهندسة العكسية بأخذ رابط البرنامج الأصلي فكل البرامج التي يتم تثبيتها على جهاز الكمبيوتر ستكون غالبا في مجلد البرامج C:\Program Files وتكون عادة في مجلد خاص بنفس البرنامج في مجلد البرامج وغالبا ما تشذ بعض البرامج ويتم تثبيتها على محرك الأقراص C او اي محرك اقراص اذا قمت بعمل ذلك يدويا اي ان مكانها معروف مسبقا واذا لم يجد الكراك او الباتش فايل مكان البرنامج الصحيح فإنه يسألك عن موقع مكان البرنامج لتقوم بتحديده يدويا .

mhb300 كتب:
(هههههههه) :haha: ..........والله اذا في اداة تحذف الفايروسات على ال Zero اكون شاكر لك ... لان الصراحه كل يوم طالع فيروس يخرب بيت الدنيا وشركات الحمايه نايمه

وما علاقة ما نتحدث عنه في حذف الملفات العادية ببرامج الفيروسات

برامج الفيروسات لديها قاعدة بيانات ضخمه بجميع انواع الفيروسات ولها خوارزميات معقده في الكشف عن ما بداخل الملفات بواسطة تواقيع معينه يستطيع بها مكافح الفيروسات التعرف على ان هذا الملف مصاب بفيروس او غير مصاب حيث يتم عمل المسح الأمني الشامل على جميع محتويات الملف داخليا فإن وجد به اي برمجة ضاره قام بإطلاق التحذير ان هذا الملف مصاب سواء بفيروس او تروجان

mhb300 كتب:
المقصود هو لو يوجد ملف داخل ملف ال A ويوجد ايضا مذكرات وغيره ... بعد ضغط زر الحذف الذي سينحذف فقط المذكرات اما المجلد الذي داخل مجلد A لن ينحذف .... في المرفقات التوضيح ....

يمكن حذف اي مجلدات بها ملفات داخل المجلد A

ولكن يجب ان نعرف اساسيات نظام الملفات System Files اولا وهو لا يمكن حذف اي مجلد يحتوي على ملفات إلا بعد تفريغ هذا المجلد من جميع الملفات بواسطة الأمر سواء Kill او Delete ثم بعد ذلك يتم حذف المجلد الفارغ بواسطة الأمر RmDir وهو اختصار لكلمة Remove Directory وإذا رغبنا في حذف جميع المجلدات بداخل المجلد A فيكفي ان نستخدم الحلقة التكرارية Loop للمرور على كل المجلدات والملفات لحذفها .

mhb300 كتب:
في الحقيقه انا فكرت اني اعمل اداة صغيره لحذف الTemp و الCookies وغيره من الملفات التي تتراكم في الجهاز وليست لها فائده ....

فقط هذا مقصدي ....واشكرك على متابعتك الموضوع .....

سامحك الله اخي محمد حسين

على كل هذه اللفة الطويله في السؤال

كان من المفروض انك قمت بوضع السؤال بشكل صريح وواضح انك تريد حذف الملفات المؤقته الموجوده في المجلد Temporary Internet Files الخاصة بالمتصفح او الموجوده في مجلد الـ Temp او ملفات الكوكيز الموجوده في المجلد Cookies وهذه المجلدات معروف اماكنها على محرك الأقراص C مسبقا فلا يوجد مشكلة في تحديد موقعها .

لذا اعطني فرصه حتى اقوم بعمل الكود اللازم الخاص بحذف الملفات المؤقته وكذلك ملفات الكوكيز واضع لك المثال في هذه المشاركة هنا .

#7

والله مبدعه .... ومدرسه كامله ..... ماشاء الله تبارك الله .... :rolleyes: .... ولانزال نستفيد من خبراتك الكبيره .....

اقتباس
كان من المفروض انك قمت بوضع السؤال بشكل صريح وواضح انك تريد حذف الملفات المؤقته الموجوده في المجلد
:rolleyes: لااريد ان اتعب احد لكي يقوم لي بالعمل كامل...وايضا لابد اني انااقوم بالعمل حتى استفيد ......

ولي ملاحظه بسيطه اذا تمكنتي :blink: .. :wacko: .. اريد لكل ملف اريد ان احذفه يكون كوده على زر ....

يعني لااريد جميع الاكواد تحذف في زر واحد

يعني الكوكيز في زر خاص به يقوم بحذفه ....وايضاالtemp في زر يقوم بحذفه وهكذا ...

وعذرا على الاطاله ......... واشكرك جزيل الشكر ............. ولافي شي يضيع بلاش .. كلشي عندالله محسوب

تم تعديل هذه المشاركة بواسطة mhb300 في 3 سبتمبر 2008 في 19:55

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#8

تفضل اخي محمد حسين

ملفك بعد التعديل

حيث سيتم حذف جميع الملفات والمجلدات الفرعية بداخل المجلد A

وايضا يتم حذف المجلد A نفسه

post-15367-1220463203_thumb.gif

MHB.rar

#9

اذا اردت حذف الملفات المؤقته وملفات الكوكيز من جهازك فيجب ان تعطينا المسار الصحيح للملفات

مثلا عندي في جهازي مسار المجلدات بهذا الشكل

C:\Documents and Settings\window\Cookies

C:\Documents and Settings\window\Local Settings\Temp

C:\Documents and Settings\window\Local Settings\Temporary Internet Files
#10

الان ممتااااااااااااز 100% ............... الله يعطيك الف عافيه ..... ويوفقك الى كل خير إن شاء الله ...........

751371wt9.gif

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#11

استاذه زهراء هذي هي مواقع الملفات .....

C:\Documents and Settings\Admin\Cookies

C:\WINDOWS\Temp
C:\Documents and Settings\Admin\Local Settings\Temp

C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#12

تفضل اخي الكريم محمد حسين

البرنامج بعد التعديل بناء على طلبك

post-15367-1220479347_thumb.gif

ملاحظة هامة لبقية الأعضاء :

لكي تستخدم البرنامج ويعمل معك بالصورة الصحيحة يجب عليك تغيير مسار المجلدات كما هو في جهازك ( هذه النسخة خاصة للأخ محمد حسين حسب مسار المجلدات في جهازه ) وهذا ما هو موجود في جهازه

C:\Documents and Settings\Admin\Cookies
C:\WINDOWS\Temp
C:\Documents and Settings\Admin\Local Settings\Temp
C:\Documents and Settings\Admin\Local Settings\Temp Internet Files

قم بتغيير مسار المجلدات بما يتوافق معك

هذا هو الكود الكامل لعملية حذف الملفات المؤقته وملفات الكوكيز وملفات الويندوز المؤقته وملفات الإنترنت المؤقته

Option Compare Database
Dim oFSO, oFile, oFolder
Dim sFolderPath1 As String
Dim sFolderPath2 As String
Dim sFolderPath3 As String
Dim sFolderPath4 As String


Private Sub CmdDelete_Click()

Select Case Me.OptDel
Case Is = 1
sFolderPath1 = "C:\Documents and Settings\Admin\Cookies"
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Len(sFolderPath1) And oFSO.FolderExists(sFolderPath1) Then
On Error Resume Next
With oFSO.GetFolder(sFolderPath1)
For Each oFile In .Files
oFile.Delete True
Next
For Each oFolder In .SubFolders
oFolder.Delete True
Next
End With
End If
MsgBox " تم حذف جميع الملفات والمجلدات للكوكيز "


Case Is = 2
sFolderPath2 = "C:\Documents and Settings\Admin\Local Settings\Temp"
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Len(sFolderPath2) And oFSO.FolderExists(sFolderPath2) Then
On Error Resume Next
With oFSO.GetFolder(sFolderPath2)
For Each oFile In .Files
oFile.Delete True
Next
For Each oFolder In .SubFolders
oFolder.Delete True
Next
End With
End If
MsgBox " تم حذف جميع الملفات والمجلدات للملفات المؤقته "


Case Is = 3
sFolderPath3 = "C:\WINDOWS\Temp"
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Len(sFolderPath3) And oFSO.FolderExists(sFolderPath3) Then
On Error Resume Next
With oFSO.GetFolder(sFolderPath2)
For Each oFile In .Files
oFile.Delete True
Next
For Each oFolder In .SubFolders
oFolder.Delete True
Next
End With
End If
MsgBox " تم حذف جميع الملفات والمجلدات للملفات المؤقته للويندوز"


Case Is = 4
sFolderPath4 = "C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files"
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Len(sFolderPath4) And oFSO.FolderExists(sFolderPath4) Then
On Error Resume Next
With oFSO.GetFolder(sFolderPath4)
For Each oFile In .Files
oFile.Delete True
Next
For Each oFolder In .SubFolders
oFolder.Delete True
Next
End With
End If

MsgBox " تم حذف جميع الملفات والمجلدات لملفات الإنترنت المؤقتة  Temporary Internet Files"

End Select
End Sub

zaMAIN_UP.rar

ملاحظة : تم تعديل المرفق

#13

ماشاء الله عليك الله يزيدك من العلم .......... انتي سويتي الي ابيه واكثر ...... مشكور والله يعطيك الف عافيه ......

المثال رائع جدا ومنظم واصبح الان برنامج قابل للاستخدام ............... الف الف شكر ......

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#14

بارك الله بك اخي محمد حسين

لقد قمت بعمل تعديل بسيط في المثال الجديد

لا اعلم هل حملت الملف الجديد الآن لأن السابق كان به خطأ بسيط لم انتبه له إلا بعد وضع المشاركة ولهذا رفعت الجديد مره ثانية .

#15

اشكرك استاذه على التواصل ........... نعم بمجرد ان نزلت مشاركتي السابقه قرات انه

اقتباس
ملاحظة : تم تعديل المرفق
فقمت بتنزيله .... ولكن لم اجربه الان لان عندي مشكله بسيطه في جهازي و سوف اقوم باعادة تثبيت اكسس 2003 ومن ثم اجربه إن شاء الله .......

شكرا على هذه المشاركات الجميله جدا ..... والله يعطيك الف عافيه

تم تعديل هذه المشاركة بواسطة mhb300 في 4 سبتمبر 2008 في 02:02

أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........

.

#16

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

#17

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة وحفظك

#18

شكرا لك أختنا أم عهود

ولكن لم يتم تنفيذ الأمر الخاص بملفات الانترنت المؤقتة حتى بعد تغيير اسم المستخدم

وهديتي لأخي صاحب الموضوع

كود حذف ملفات سلة المهملات

del_rb.rar

التغير هو القانون الدائم للحياة.ودوام الحال من المحال

فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟

موقعي

#19

بارك الله بك اخي محمد صالح

بالنسبة لكود حذف الملفات المؤقتة الخاصة بالإنترنت فقد قمت بتجربته من خلال الجهاز لدي

وهو يعمل بشكل سليم ولا يوجد به اي خطأ

لذا تأكد جيدا انك تستخدم المتصفح انترنت اكسبلولر IE مع ملاحظة انه يوجد في هذا المجلد ملفات ومجلدات مخفيه ونظاميه لا يمكن حذفها وهي خاصة بملفات الويندوز خاصة بالإتصال بين المتصفح والويندوز .

وايضا تأكد جيدا من المسار الصحيح للمجلد اي يجب ان تأخذه من واقع جهازك انت لأنه قد يكون تم التغيير فيه او وضعه في مكان ما غير ما هو افتراضي .

مواضيع مشابهة