[المنذر]

اصدقائي هل استطيع الجمع بين هاتين الاداتين في زر بوتن واحد ومن خلال عرض المجلدات والملفات اختار مجلد او ملف وشكرا لكم

كود :

FolderBrowserDialog

كود :

OpenFileDialog

[asemshahen5]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "Notepad .txt|*.txt"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


[المنذر]

(29-09-19, 09:20 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "Notepad .txt|*.txt"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


اخي الكريم شكرا لك جربت هذا الكود ومن خلاله عم يعرض فقط المجلدات اما الملفات فهي غير ضاهرة

[asemshahen5]

إضغط على موافق في نافذة المجلدات .

[المنذر]

(29-09-19, 09:44 PM)asemshahen5 كتب : إضغط على موافق في نافذة المجلدات .

اخي لما اضغط موافق عم يفتح المجد لكن الملفات التي بداخله غير ظاهرة

[asemshahen5]

غيير الفلتر الخاص بالاداة الى تنسيق الملف الذي تريده :

PHP كود :

opd.Filter = "Notepad .txt|*.txt" 


---

PHP كود :

opd.Filter = "كل الملفات |*.*" 


[المنذر]

(29-09-19, 09:58 PM)asemshahen5 كتب : غيير الفلتر الخاص بالاداة الى تنسيق الملف الذي تريده :

PHP كود :

opd.Filter = "Notepad .txt|*.txt" 


---

PHP كود :

opd.Filter = "كل الملفات |*.*" 


عم عذبك معي بدلت الكود الذي ارسلته لي اصبحت استطيع اختيار ملف ولا استطيع اختيار مجلد

[asemshahen5]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "كل الملفات |*.*"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


أو وضح أكثر .

[المنذر]

(29-09-19, 10:38 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "كل الملفات |*.*"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


أو وضح أكثر .

اخي الكريم عندي بوتن1 لفتح الاداة الاولى واختيار مجلد وبوتن 2لفتح الاداة الثانية واختيار ملف
وفي تكست بوكس واحد عم ينزلي مسار المجلد او الملف الذي اخترته
وفي عندي بوتن 3 لفتح المسار الموجود ضمن التكست بوكس لهنا مافي مشكلة
السؤال بقدر اجمع الاداتين في بوتن واحد ومن شاشة العرض بقدر اختار ملف او مجلد بدل من استخدام 2 بوتن  وشكرا

[asemshahen5]

أنا أرى ان استخدام الاداة OpenFileDialog تكفي لما تريد أو ضع مثال مصغر لما تريد .