السلام عليكم ورحمة الله تعالى وبركاته
اخواني الكرام كيف يمكن وضع المجلدات الفرعية في قائمة
ومن ثمة الاعلان عن متغير x يعبر عن احدى هذه المجلدات
لان في كل جدول قاعدة بيانات واريد ان اعطي للمستخدم اختيار احد المجلدات لفتح القاعدة الموجودة به انطلاقا من قائمة liste تحتوي على مجلدات فرعية داخل مجلد البرنامج
وشكرا
الكود التالي يفترض وجود لائحة باسم List1 و زر أمر باسم Command1.
يتم سرد المجلدات الفرعية لمجلد المشروع أو البرنامج في اللائحة. و عند نقر الزر يتم الحصول على المسار الكامل للمجلد المختار من اللائحة.
كود :
' في قسم التصريحات
Private MyPath As String
' عند تحميل النافذة
Private Sub Form_Load()
Dim ObjName As String
Caption = App.Path
If Right$(App.Path, 1) = "\" Then
MyPath = App.Path
Else
MyPath = App.Path & "\"
End If
ObjName = Dir$(MyPath, vbDirectory)
Do While ObjName <> ""
If (ObjName <> ".") And (ObjName <> "..") Then
If (GetAttr(MyPath & ObjName) And vbDirectory) = vbDirectory Then
List1.AddItem ObjName
End If
End If
ObjName = Dir$
Loop
End Sub
' عند النقر على الزر
Private Sub Command1_Click()
Dim SelPath As String
If List1.ListIndex = -1 Then
MsgBox "الرجاء اختيار مجلد من اللائحة"
Else
SelPath = MyPath & List1.List(List1.ListIndex)
' بدل الرسالة التالية استعمل المسار فيما تريد
MsgBox SelPath
End If
End Sub