أختيار وحذف مجلد

[ابن الملك]

أساتذتى فى منتدى اوفيسنا ,,,

 

 

تحية طيبة ليكم 

 

 

 

مرفق ملف بة طريقة لعمل بحث عن مجلد ثم حذفة بالكامل 

هدية صغيرة اشارك بيها معاكم

 

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

 

 

Browse & Delete Folder.rar

[مختار حسين محمود]

وتخبط رأسك ليه فى الحيط !!!!!  قول هتتدبر ان شاء الله هتلاقى الكود فى جيبك 

Sub mokh_ChooseFilethendelete()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Dim FileChosen As Integer

FileChosen = fd.Show

If FileChosen <> -1 Then

MsgBox "You chose cancel"

Else

Kill fd.SelectedItems(1)

End If

End Sub

كل سنة وأنت طيب

تم تعديل يونيو 14, 2015 بواسطه مختار حسين محمود

[أبو يوسف النجار]

ماشاء الله أستاذ مختار

[مختار حسين محمود]

شكرا لك أبا يوسف

الحمد لله أنى وفقت فى الحل  تحياتى لك ولابن الملك

تم تعديل يونيو 14, 2015 بواسطه مختار حسين محمود

[ابن الملك]

شكرا لك أبا يوسف

الحمد لله أنى وفقت فى الحل  تحياتى لك ولابن الملك

 

 

أستاذ مختار تحياتى ليك

 

مرفق لحضرتك الفايل بعد أضافة الكود اللى حضرتك أضفتة " بجد الله ينور "

 

 

ولكن هل من الممكن اختيار أكثر من ملف بدل من ملف واحد  ؟؟؟؟

 

وهل لو الملف قيد التشغيل أو " للقراءة فقط " هل يتم حذفة ؟؟؟

 

لانة كثيرا ما يعلق عندنا ملفات على الرغم اننا لا نستخدمها الا أن الويندوز يراها تحت التشغيل ولهذا لا يقبل حذفها او تعديل اسمها !!!  

 

 

وشكرا لتعبك

Browse & Delete Folder.rar

[مختار حسين محمود]

كود اختيار أكثر من ملف للحذف دفعة واحدة

Sub FilesChosentobedel()

Dim strPath As String
Dim FilesChosen As Integer, X As Integer
FilesChosen = Application.FileDialog(msoFileDialogOpen).Show

If FilesChosen <> 0 Then
   
    For X = 1 To Application.FileDialog(msoFileDialogOpen).SelectedItems.Count
       
        strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(X)
        Kill strPath
    Next X
End If

End Sub

فى الصندوق الحوارى  حدد الملفات المراد حذفها واضغط open

=====================================

 

الملفات  قيد التشغيل لا يمكن حذفها ولا يمكن اعادة تسميتها أو نقلها

 

أما بخصوص الجزئية  :

"لانه كثيرا ما يعلق عندنا ملفات على الرغم اننا لا نستخدمها الا أن الويندوز يراها تحت التشغيل ولهذا لا يقبل حذفها او تعديل اسمها !!! "

 

مش فاهم قصدك بالملفات العالقة ولكن يمكن أن أقول أن TASK MANAGER  أو اعادة تشغيل الجهاز يكفى لغلق الملفات اذا كان الجهاز مريح أو مهنج 

 

تحياتى

[ابن الملك]

الاستاذ مختار

بجد الله ينور أحسنت

" هو حضرتك مبتديش دروس خصوصية أو حتي فصول تقوية حضرتك والاستاذ ياسر خليل ربنا يبارك في عقولكم "

شكرا لحضرتك كتير ولكل المنتدي العظيم

تم تعديل يونيو 15, 2015 بواسطه ابن الملك

[ابن الملك]

الاستاذ مختار

بجد الله ينور أحسنت

" هو حضرتك مبتديش دروس خصوصية أو حتي فصول تقوية حضرتك والاستاذ ياسر خليل ربنا يبارك في عقولكم "

شكرا لحضرتك كتير ولكل المنتدي العظيم

[مختار حسين محمود]

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

ولكن أحب أن أقولك أننا فى المقام الأول والأخير كلنا مثلك طلبه  بنذاكر ونبحث وندور هنا وهناك   تحياتى

[ابن الملك]

الاستاذ مختار تحياتى وبعتذر عن تأخر الرد

 

ولكن هذا حقيقى وليس افتراء ربنا يبارك فيكم وفى كل المنتدى امين .

 

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

[مختار حسين محمود]

لا تبالى المهم أننا توصلنا للحل بفضل الله

اجعل الموضوع منتهياً ومجاباً باختيار أفضل اجابة

كل سنة وأنت بخير