[ تمت الإجابة ]مساعدة في عمل زر استعراض المجلدات

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

أخواني اعضاء هذا الصرح الكبير ....

حال اقوم بعمل برنامج بسيط جدا ..

واريد معرفة طريقة عمل زر لإستعراض المجلدات واظهار المسار في textbox ... مثل المستخدمة عند تعريف اي قطعة بالجهاز في حالة استعراض جهاز الكمبيوتر ...

قد يوصي البعض على استخدام اداتي dirlistbox و driverlistbox ... ولكن لا اريد استخدام هـ الطريقة ...

وللعلم أخواني ..

انا حصلت على الكود لإستعراض المجلدات المطلوب ...

ولكن المشكلة إلي واجهتنى هي كيفية عرض المسار في textbox ...

الكود:

If shlShell Is Nothing Then

Set shlShell = New shell32.Shell

End If

Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "Select a Directory", BIF_RETURNONLYFSDIRS)

If Not shlFolder Is Nothing Then

MsgBox shlFolder.Title

End If

ارجو افادتي في كيفية اظهار مسار المجلد كاملا في textbox ...؟؟؟

وإن كانت هناك طريقة اخرى ... ارجو عرضها لي ...

ولكم جزيل الشكر والتقدير ...