(للمُبتدئين) كيفية إستعراض المجلدات وتحديد مسارتها وبعض البيانات عنها

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

إخوانى الإعضـاء الكرام كيف حال الجميع؟

أسـأل الله العظيم أن تكونوا فى أفضل حال وأتم عافية

وجـدت الكثير من الأسئلة المتعلقة بكيفية إستعراض المجلدات داخل Visual Basic 6.0 وفى الحقيقة ما إضطرني لعمل هذا الموضوع هو وجود الكثير ممن يتسعينون بأدوات خارجية لإنجاز تلك الأمر مع أنه مُدعم داخل مكونات VB6 , المهم حتى لا أُطيل عليك فلنتبع التالي معاً لمعرفة كيفية إستعراض المجلدات والوصول الى مساراتها وبعض البيانات الخاصة بها.

أولاً قُم بفتح مشـروع جديد يتكون من:

واحد Form
واحد CommandButton
واحد TextBox

ثانياً قُم بتعريف مرجع:

Microsoft shell controls and automation

وذلك عن طريق التالي:

من قائمة Project ومنها الى References وإختار من النافذة Microsoft shell controls and automationواضغط OK كما موضح بالصورة التالية:

تعريف مرجع Microsof shell controls and automation

الأن داخل الحدث Click للـ Command1 قُم بكتابة الأمر التالي:

Private Sub Command1_Click()
Dim myFolder As Folder
Dim myShell As New Shell32.Shell
'================================
Set myFolder = myShell.BrowseForFolder(Me.hWnd, "Select a Folder", BIF_RETURNONLYFSDIRS)
If Not myFolder Is Nothing Then
Text1.Text = myFolder.Items.Item.Path
End If
End Sub

شرح الكود:

1 – الإعلان عن متغير من نوع Folder وهو احد عناصر المرجع الذى قُمنا بتعريفه أولاً.
2 – الإعلان عن متغير يحمل الكائن Shell التابع للفئة Shell32 (وهو الكائن المُعتمد عليه).
3 – ضبط المتغير myFolder ليحمل بيانات المجلد العائد من إستخدام الطريقة BrowseForFolder التابعة للمتغير myShell (ولاحظ وجود ثلاثة معاملات خاصة بالطريقة BrowseForFolder وهم على التوالي مقبض الفورم , عنوان صندوق حوار مستعرض المجلدات,والثالث وهو Option الصندوق والقيمة (BIF_RETURNONLYFSDIRS) تُفيد بإعادة المسارات).
4 – الشرط واضح يقوم بالتحقق من وصول مجلد بالفعل الى المتغير myFolder .
5 – إسترجاع المسار الخاص بالمجلد داخل الـ TextBox وذلك من خلال الطريقة Path التابعة لعناصر الدالة Items.Item.
6 – !.

ملحوظة أخيرةهناك طرق اخرى كطريقة الحصول على تاريخ تعديل المجلد وكذلك اسمه وهم على التوالي (Modify,Name ) وهم أيضاً أحد عناصر Items.Item

كذلك يُمكنك الحصـول على معلومات وطرق أخرى للتعامل مع ذلك المرجع من خلال ذلك الرابـــــــــــط من MSDN

وهـذا مثـــــــــــــــــــــــــال

أتمنى أن تستفيدوا من الموضوع , ولا تنسونا من صالح دعائكم

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

Advertisements

3 thoughts on “(للمُبتدئين) كيفية إستعراض المجلدات وتحديد مسارتها وبعض البيانات عنها

  1. جزاك الله الف خيرا مثال جميل وانا احد الشباب الذين ابحث عن مثال كهذا كم تمنيت ان يتم احد بشرح كيفيه عمل هذا

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

    صوره للمثال

اترك رد

إملأ الحقول أدناه بالمعلومات المناسبة أو إضغط على إحدى الأيقونات لتسجيل الدخول:

WordPress.com Logo

أنت تعلق بإستخدام حساب WordPress.com. تسجيل خروج   / تغيير )

صورة تويتر

أنت تعلق بإستخدام حساب Twitter. تسجيل خروج   / تغيير )

Facebook photo

أنت تعلق بإستخدام حساب Facebook. تسجيل خروج   / تغيير )

Google+ photo

أنت تعلق بإستخدام حساب Google+. تسجيل خروج   / تغيير )

Connecting to %s