[ناجي إبراهيم]

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

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

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