اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر
 
8f54fb1254f91050fa1f32e93e5e8edc-.gif
 

إسم الملف: تطبيق لتوثيق قائمة بالمجلدات و الملفات و خصائصها - مفيد جداً

أضيف للمكتبة بواسطة: محمد طاهر

تاريخ الإضافة: 08 Sep 2009

القسم فى المكتبة: Project Management

آخر تحديث أكتوبر 2012 ،

نسخة متوافقة مع اوفيس 2010

--------------------

 

إن توثيق الملفات المختلقة من الأهمية بمكان فى العمل و فى الملفات الشخصية

و لكنه قد يستغرق وقتا طويلا

لذا قمت باعداد هذا التطبيق

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

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

و هو مفيد جدا فى عمليه التوثيق للملفات و المجلدات فى العمل او المنزل

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

This Excel Application Helps Documenting Folders and Files in your computer in a new Excel File

You can include subfolders or not

It is Very useful for Documenting Personal or Shared Folders

The idea came to me upon request of one of the colleagues to do something similar, so I did prepare it , and now it is ready for use

Please note the file shall be updated/improved periodically , so please check the file download link from time to time

ملاحظة هامة : قبل التشغيل تأكد أن خيارات الأمان فى الاكسيل تسمح بتشغيل الماكرو

Before using the file in Excel , please make sure the Macros are activated, otherwise the file will not work

و لا تنسونا من صالح دعاؤكم

كلمة السر هي عنوان الموقع الرئيسي لمن أراد تصفح الأكواد

إضغط هنـــــــــــا لتنزيل الملف

  • Like 4
قام بنشر

ما شاء الله

حزمة رائعة من الأكواد البسيطة في مبناها الكبيرة في معناها

جزاك الله خيرا يا باشمهندس

  • Like 2
قام بنشر (معدل)

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

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

استاذي الكريم اسمح لي ان ابدي اعجابي بهذا العمل الرائع

لكن عندي ملاحظة لست ادري الخطأ من عندي ام من الملف

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

ارجو منكم التوضيح

تم تعديل بواسطه yahiaoui
قام بنشر

السلام عليكم

جزاكم الله خيرا أخوتي الكرام

الخ يحياوي ملاحظتك فى محلها

و انا حاليا قاربت على الانتهاء من الاصدار التالي ، و به عدد من الميزات الاضافية

و فيه تم تدارك هذا الخطأ

و ذلك عن طريق تعديل كود فتح الديالوج ليصبح


If f.Show = 0 Then

 MsgBox "you have to choose a Target Folder"

 Exit Sub

End If

و أرجو الافادة عن أية أخطاء أخري لاضافتها فى الاصدار الجديد

قام بنشر

تم تحديث الملف ( الاصدار 1.1)

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

و يمكن الاختيار بين واجهتي استخدام عربية و انجليزية

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

و يرجي اضافة أية ملاحظات تجدونها على هذا الاصدار

قام بنشر

السلام عليكم اخى الكريم محمد رمضان كريم بارك الله فيك برنامج مفيد جدا ولاكن

عند تجربتة واختيار الواجهة باللغة الانجلزية تظهر الرسائل بالعربى عند اخيار اى شى فارجو ترجمتها الى الانجلزية

قام بنشر

شكرا لك أخي يحياوي

أخي أحمد ، الرسالة تظهر باللغتين معا، و طبعا يمكن فصلها

و ارجو توضيح السبب فى هذا الطلب هل تظهر العربية بشكل غير واضح فى الرسالة ؟

  • 1 month later...
قام بنشر

قمت بعمل إضافة سريعة وقد تكون مفيدة لمستخدم هذا الملف

وهو إضافة الارتباط التشعبى لمسار الملف لتسهيل فتح اى مسار والاطلاع علية

تحياتى للاستاذ الفاضل محمد طاهر

قام بنشر

نعم شكرا لك على الاضافة المفيدة

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

و اختصارا يمكن حذف هذا Cells(R, 2).Formula = Folderitem.Name

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

  ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 2), Address:=Folderitem.Path, TextToDisplay:=Folderitem.Name

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

مع الشكر والتقدير

قام بنشر

شكرا لك استاذ محمد طاهر

وانا فى انتظار النسخة المعدلة

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

شكرا لك مرة اخرى

قام بنشر

تم اضافة الإصدار الجديد

1.2

و فيه :

اضافة روابط الملفات و المجلدات الي القائمة

تدارك بعض الأخطاء فى الكود السابق

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

فصل الرسائل بحسب اللغة المستخدمة و كذلك الشاشات

تخفيف حجم الرسائل و التنبيهات و اختصارها

بعض التحسينات البسيطة

يرجي التجربةو الافادة عن أية أخطاء أو اقتراحات أخري

مع الشكر و التقدير

  • 3 weeks later...
  • 3 weeks later...
  • 3 weeks later...
قام بنشر

استاذنا الكريم محمد طاهر ابارك لك هذا الابداع المتميز

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

ولما رأيت ان الـ VBA مشفرة احببت ان اساذنك في الاطلاع عليه

  • أفضل إجابة
قام بنشر

السلام عليكم

الباسوورد مكتوبة فى المشاركة الاصلية:frown3:

و هي www.officena.net

فقط وضعته محمي ليساعد فى الدعاية للموقع اذا تم تداوله

و لكن كلمة السر معلنة للأعضاء من أول لحظة

  • 1 month later...
  • 4 months later...
  • 5 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information