كيفية حذف جميع الملفات داخل مجلد

Kill "c:\windows\desktop\vb\*.*"

مشكور اخي عبد العزيز اليوسفي

ولكن لم يعمل الكود معي بالشكل الجيد

اروجو الافادة

صقر الزمان كتب:

مشكور اخي عبد العزيز اليوسفي

ولكن لم يعمل الكود معي بالشكل الجيد

اروجو الافادة

اخوي ضع الكود في زر Command مثلا

Private Sub Command1_Click()
Kill "c:\test\*.*"
End Sub

حيث عند الضغط على زر كموند سيتم مسح جميع الملفات الموجدة بالمجلد test الموجود على القرص \:C

الاخ عبد العزيز اليوسفي

اسف اخي الكود يعمل تمام

ولكن عند تجريب هذا الكود مع مجلد الTemp

لا يعمل ويعطي خطاء ويغلق البرنامج

الاخ al.safer

مشكور وجزاك الله خيرا علي التوضيح وسرعة الرد

ربما تكون الدالة أو المسار الذي تستخدمه لمجلد الTemp خاطىء

لكل مستخدم للوندوز يوجد مسار Temp في مستنداته ، غير الموجود داخل الوندوز

اقتباس

ولكن عند تجريب هذا الكود مع مجلد الTemp

لا يعمل ويعطي خطاء ويغلق البرنامج

اقتباس

ربما تكون الدالة أو المسار الذي تستخدمه لمجلد الTemp خاطىء

وهناك ملاحظة أخرى

هناك ملف داخل الTemp مستعمل من قبل النظام أي ان هناك برنامج يعمل و يستخدم هذا الملف

حاول الدخول لمجلد ال Temp و أحذف الملفات يدوياً قد تجد ملف لايحذف

وهذا هو السبب على مأظن

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

@ECHO OFF

move c:\windows\TEMP\*.* c:\recycled

المزمجر كتب:

وهناك ملاحظة أخرى

هناك ملف داخل الTemp مستعمل من قبل النظام أي ان هناك برنامج يعمل و يستخدم هذا الملف

حاول الدخول لمجلد ال Temp و أحذف الملفات يدوياً قد تجد ملف لايحذف

وهذا هو السبب على مأظن

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

@ECHO OFF

move c:\windows\TEMP\*.* c:\recycled

مشكور مبرمجنا العزيز المزمجر وارجو التوضيح

ماذا يعني ملف بات داخلة امر

ان امكن مثال للتوضيح

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

الاخ عبد العزيز اليوسفي

مشكور جدا جدا علي الاهتمام والرد

صقر الزمان كتب:

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

مرحبا اخوي بالنسبة لمسح ملفات TEMP الظاهر انه لازم يدوي لانة اسم المجلد المحتوي على المجلد TEMP يختلف من شخص لاخر.

اما لحذف سلة المحذوفات اتفضل يالغالي

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long

Private Sub Command1_Click()
SHEmptyRecycleBin Me.hwnd, vbNullString, 1
SHUpdateRecycleBinIcon
End Sub

الأخ الفاضل...

أرجو أن يفيدك هذا المثال فى ماتريد إنجازه

بأستخدام (MS-VB 6.0)

DeleteFolder.zip

وشكراً

الاخ al.safer

مشكور علي المتابعه والكود

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

اذا كيف يمكن لهذه البرامج تحدي ومسح الملفات

هذا ما نريده من الاخوة المبرمجين الكرام

الاخ Eng. Usama El-Mokadem

مشكور علي المثال بالفعل انه رائع

ولكن اريد ان يمسح اتوماتيكيا عند الضغط علي زر وليس ان يقوم المستخدم بتحديد المسار

فهناك مستخدمين لا يعلمون شئ عن المسار اصلا ولا حتي معناها

ارجو الا اكون قد ارهقتكم معي

ولكن كلي ثقه فيكم وفي هذا المنتدي الرائع والغالي

هل يمكنك إضافة المسار الذي تكتبه هنا

لتفادي رسالة الخطأ :

 On Error Resume Next

لقد قمت بتجهيز مثال

أرجو أن ينفعكم

NOUR_TEMP.zip

مشكور مبرمجنا العزيز المزمجر

كما اشكر جميع الاخوه الذين شاركم في استفساري

الاخ ( المزمجر -عبد العزيز اليوسفي - al.safer - Eng. Usama El-Mokadem)

علي تعبكم معي

الف الف شكر

ما أحلى لما الواحد يستفيد من ردود الاعضاء يشكرهم !!

الله يعطيك العافية أخي صقر الزمان و أنت الذي تستحق الشكر%

و الله يوفقك في برنامجك

الأخ الفاضل ... صقر الزمان

أنت دائماً على الرحب والسعة

DeleteFolder2.zip

كان طلبك الأول التالى:

اقتباس

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

اقتباس

ولكن اريد ان يمسح اتوماتيكيا عند الضغط علي زر وليس ان يقوم المستخدم بتحديد المسار

أرفقت لك نفس النسخة من البرنامج (بتعديل بسيط) ولكن الفهرس الأفتراضى هو الـ Temp كل ما عليك الضغط على Enter :)

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

الأخ الفاضل ... المزمجر

أرجو ان يتسع صدرك لى

اقتباس

ما أحلى لما الواحد يستفيد من ردود الاعضاء يشكرهم

جميل جداً المثال الذى أرفقتة ، ولكن ...

1) فى حذف ملف معين: لو كان للقراءة فقط فلن يحذف

2) فى حذف مجلد معين: لو كان يحتوى على ملفات أو مجلدات فرعية فلن يحذف، ولن يتم حذف الملفات داخل المجلدات الفرعية أو المجلدات الفرعية نفسها

3) فى حذف جميع الملفات داخل مجلد ثم المجلد ذاته: إذا كان أحد الملفات مستخدم أو للقراءة فقط فسيتوقف البرنامج (رسالة خطأ) ولن يكمل حذف باقى الملفات حتى لو أنها غير مستخدمه ويمكن حذفها، وبالطبع لن يتم حذف المجلد

4) فى الاستمرار في حال الخطأ: سيحدث الخطأ ويتم الخروج من الأمر Kill (لكن دون توقف البرنامج) عند مصادفة أول ملف لا يستطيع حذفه، ولن يكمل حذف باقى الملفات حتى لو أنها غير مستخدمه ويمكن حذفها

5) فى حذف جميع الملفات داخل مجل معين: سيحدث الخطأ ويتم الخروج من الأمر Kill (لكن دون توقف البرنامج) عند مصادفة أول ملف لا يستطيع حذفه، ولن يكمل حذف باقى الملفات حتى لو أنها غير مستخدمه ويمكن حذفها

من داخل برنامج المزمجر:

اقتباس

'المزمجر بإختصار : أبسط حل

وشكراً

ما اروعك Eng. Usama El-Mokadem

والله يعجز لساني عن شكرك

لا اجد غير ان اقول لك جزاك الله خيرا وذادك علما ورفع شانك انت وبقيت الاخوة ايضا

والف الف شكر

مبرمجنا العزيز المزمجر ارجو الرد علي تعقيب الاخ Eng. Usama El-Mokadem

لكي نستفيد من النقاش بينكم

واشكركم جميعا

اقتباس

مبرمجنا العزيز المزمجر ارجو الرد علي تعقيب الاخ Eng. Usama El-Mokadem

لكي نستفيد من النقاش بينكم

اقتباس

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

صدقت أخي الكريم Eng. Usama El-Mokadem وهذا هو الجواب الصريح للملاحظات الخمسة

اقتباس

من داخل برنامج المزمجر:

'المزمجر بإختصار : أبسط حل

أخي الكريم لم أقصد مثاللك ولكن بعد ان جمعت معلومات الحذف في المثال المرفق بتاعي

أردت الارشاد إلى الكود الذي أظنه المطلوب بالتحديد و ليس مثاللك هو المقصود بل مثالي (للتوضيح)

قصدت أن أعطي الاخ صقر الزمان أكبر قدر من المعلومات

نعم وقد روادتني شغلة خصائص الملف و خصوصاً بعد التجريب

ولكن قلت المثال في كل الاحوال لم يلم بعد بجميع الاكواد و أنما بالبسيطة منها

وبالتأكيد هو ليس نهائي و أنما للتعديل و التطوير

و لم أعتقد ان الامر سينتهي هنا وهو فعلاً ماحدث ولو توقف للحظات

وهو ماجعلني أستغرب من الاخ صقر الزمان فظنيت الفكرة وصلت

مشكورين إخواني على الردود والتوضيحات وأتمنى ان تكون المناقشة مفيدة لجميع الأعضاء

اقتباس

الأخ الفاضل ... المزمجر

أرجو ان يتسع صدرك لى

اقتباس

أنت دائماً على الرحب والسعة

مبرمجنا العزيز المزمجر

الفكرة كانت قد وضحت لي بالفعل من خلال مثالك المرفق

ولكنني اعتقدت الملفات التي لم يمسحها ولازلت في temp ملفات تعمل لبرامج او اشياء اخري

لذلك اعتقدت الموضوع عادي

ولكن الا خ Eng. Usama El-Mokadem قام بالتوضيح اكثر وانت مشكورا قمت بالتوضيح اكثر واكثر

فتبينة الفكرة لي بنسبة 100%

اشكركم جميعا جميع من ساهم في افادتي

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

يعني حلت المشكلة

الحمد لله

عبد العزيز اليوسفي كتب:

يعني حلت المشكلة

الحمد لله

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