منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يمكن التعبير عن متغير يدل هلى مجلد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيف يمكن التعبير عن متغير يدل هلى مجلد (/showthread.php?tid=8204)

كيف يمكن التعبير عن متغير يدل هلى مجلد - rachid - 28-03-13

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

كيف يمكن التعبير عن متغير يدل هلى مجلد - ناجي إبراهيم - 29-03-13

السلام عليكم...

الكود التالي يفترض وجود لائحة باسم 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

نرجو الاستفادة و السلام.

كيف يمكن التعبير عن متغير يدل هلى مجلد - VB_Coder - 29-03-13

السلام عليكم

- هذا يوضح لك الطريقة .

- تحياتي .