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

[محمد طاهر عرفه]

 

 

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

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

تاريخ الإضافة: 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

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

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

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

[أ / محمد صالح]

ما شاء الله

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

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

[محمد عسكر]

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

ما شاء الله

عمل رائع يا أ/ محمد

بارك الله فيك

[محمد يحياوي]

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

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

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

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

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

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

تم تعديل سبتمبر 12, 2009 بواسطه yahiaoui

[محمد طاهر عرفه]

السلام عليكم

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

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

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

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

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

If f.Show = 0 Then

 MsgBox "you have to choose a Target Folder"

 Exit Sub

End If

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

[محمد طاهر عرفه]

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

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

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

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

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

[ahmedhafez]

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

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

[محمد يحياوي]

استاذي الكريم عمل رائع ومتقن خصوصا عند اضافة النماذج

[محمد طاهر عرفه]

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

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

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

[A L M A I S T R O]

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

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

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

[محمد طاهر عرفه]

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

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

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

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

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

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

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

[A L M A I S T R O]

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

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

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

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

[محمد طاهر عرفه]

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

1.2

و فيه :

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

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

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

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

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

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

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

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

[A L M A I S T R O]

النظرة المبدئية

رااااااائع

وجارى العمل علية

الف شكر

[naderwatfa]

مفيد جداً هذا الملف

تقبل كل شكري و تقديري

[احمد فضيله]

جزاك الله خيرا

[محمد يحياوي]

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

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

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

[محمد طاهر عرفه]

السلام عليكم

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

و هي www.officena.net

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

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

[محمد يحياوي]

بوركت استاذنا الفاضل على هذا الكرم الزائد وهذا العطاء المتواصل

[طارق محمود]

السلام عليكم

ماشاء الله ، عمل بديع

خاصة أنني أحتاجه الآن

جزاك الله خيرا

دائما مبدع

[استاذ ياسر]

thaaaaaaaaaaaaaaaaaaaaaaaaaaaaaanks a lot

[محمد طاهر عرفه]

شكرا لكم