تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن التعبير عن متغير يدل هلى مجلد
#1
السلام عليكم ورحمة الله تعالى وبركاته
اخواني الكرام كيف يمكن وضع المجلدات الفرعية في قائمة
ومن ثمة الاعلان عن متغير x يعبر عن احدى هذه المجلدات
لان في كل جدول قاعدة بيانات واريد ان اعطي للمستخدم اختيار احد المجلدات لفتح القاعدة الموجودة به انطلاقا من قائمة liste تحتوي على مجلدات فرعية داخل مجلد البرنامج
وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

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

- تحياتي .


الملفات المرفقة
.rar   Example1-Fix.rar (الحجم : 5.37 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن اشتراط الاتصال بالأنترنت لتثبيت برنامج مبرمج بال vb6 AEDC 1 56 10-09-17, 01:49 PM
آخر رد: Ahmed_Mansoor
  هل يمكن تشغيل برنامج بالفيجوال على الهاتف الجوال الحلوانى 4 160 17-08-17, 02:26 PM
آخر رد: أبو نوره
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 200 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  [نقاش] نسخ المفات في مجلد معين بالجهاز maher 1 145 09-03-17, 09:14 AM
آخر رد: Ashraf Elafify
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 676 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [vb6.0] هل يمكن ارسال بريد اليكترونى من برنامجى؟ ahmed_egypt 1 311 04-07-16, 01:26 AM
آخر رد: Amir_alzubidy
  سوال هل يمكن فتح متصفح بالفيجوال عن طريق جوجل كروم بدلا من انترنت اكسبلور ahmedhhh2 5 458 05-06-16, 03:10 PM
آخر رد: ahmedhhh2
  هل يمكن قراءة نص من الويبكام بإستعمال OCR AEDC 0 227 21-02-16, 04:20 AM
آخر رد: AEDC
  [سؤال] كيف يمكن عمل برنامج لبطاقه شخصيه مع شرحها بتفصيل safani03 2 931 27-01-15, 12:02 AM
آخر رد: alfarouk
  كيف يمكن تثبيت vb6 في نظام تشغيل win 8 ahat 1 938 26-08-13, 02:55 PM
آخر رد: ahmed3d

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم