منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] FolderBrowserDialog - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] FolderBrowserDialog (/showthread.php?tid=31518)

الصفحات: 1 2

FolderBrowserDialog - سلام م - 26-09-19

اصدقائي كيف اجعل اداة فتح المجلدات تبدأ من مجلد معين او قرص معين

RE: FolderBrowserDialog - AbdoDabak - 26-09-19

السلام عليكم
حتى لو بدات من مجلد معين المجلدات الباقية رح تظهر
على حسب علمي
والله اعلم

كود :
FolderBrowserDialog1.SelectedPath = "C:\Program Files\"
       FolderBrowserDialog1.ShowDialog()





RE: FolderBrowserDialog - سلام م - 26-09-19

(26-09-19, 04:29 PM)AbdoDabak كتب :
السلام عليكم
حتى لو بدات من مجلد معين المجلدات الباقية رح تظهر
على حسب علمي
والله اعلم

كود :
FolderBrowserDialog1.SelectedPath = "C:\Program Files\"
       FolderBrowserDialog1.ShowDialog()

مامشي الحال اخي 



RE: FolderBrowserDialog - سعود - 26-09-19

PHP كود :
Dim f As New FolderBrowserDialog
        f.RootFolder = Environment.SpecialFolder.Desktop
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
        End If 


RE: FolderBrowserDialog - سلام م - 26-09-19

(26-09-19, 06:59 PM)سعود كتب :
PHP كود :
Dim f As New FolderBrowserDialog
        f.RootFolder = Environment.SpecialFolder.Desktop
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
        End If 

اخي الكريم شكرا لك لكن كلف بقدر احدد مجلد معين اسمه g مثلا اي كيف بقدر اضيف مسار هذا المجلد عالكود المرسل من قبلك

RE: FolderBrowserDialog - AbdoDabak - 26-09-19

(26-09-19, 07:53 PM)سلام م كتب :
(26-09-19, 06:59 PM)سعود كتب :
PHP كود :
Dim f As New FolderBrowserDialog
        f.RootFolder = Environment.SpecialFolder.Desktop
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
        End If 

اخي الكريم شكرا لك لكن كلف بقدر احدد مجلد معين اسمه g مثلا اي كيف بقدر اضيف مسار هذا المجلد عالكود المرسل من قبلك

كود :
 Dim f As New FolderBrowserDialog
        f.SelectedPath = "مسار المجلد"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
            End If
جرب هيك اخي

RE: FolderBrowserDialog - سلام م - 27-09-19

(26-09-19, 09:25 PM)AbdoDabak كتب :
(26-09-19, 07:53 PM)سلام م كتب :
(26-09-19, 06:59 PM)سعود كتب :
PHP كود :
Dim f As New FolderBrowserDialog
        f.RootFolder = Environment.SpecialFolder.Desktop
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
        End If 

اخي الكريم شكرا لك لكن كلف بقدر احدد مجلد معين اسمه g مثلا اي كيف بقدر اضيف مسار هذا المجلد عالكود المرسل من قبلك

كود :
 Dim f As New FolderBrowserDialog
        f.SelectedPath = "مسار المجلد"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
            End If
جرب هيك

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

RE: FolderBrowserDialog - AbdoDabak - 27-09-19

(27-09-19, 02:10 AM)سلام م كتب :
(26-09-19, 09:25 PM)AbdoDabak كتب :
(26-09-19, 07:53 PM)سلام م كتب :
(26-09-19, 06:59 PM)سعود كتب :
PHP كود :
Dim f As New FolderBrowserDialog
        f.RootFolder = Environment.SpecialFolder.Desktop
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
        End If 

اخي الكريم شكرا لك لكن كلف بقدر احدد مجلد معين اسمه g مثلا اي كيف بقدر اضيف مسار هذا المجلد عالكود المرسل من قبلك

كود :
 Dim f As New FolderBrowserDialog
        f.SelectedPath = "مسار المجلد"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
            End If
جرب هيك

شكرا اخي اخي الكريم تمام بس بقدر  اضهر اسم المجلد الي اخترته في تكست بوكس بدون مساره اي فقط اسمه
جرب هاد الكود
كود :
Dim f As New FolderBrowserDialog
       f.SelectedPath = "مسار المجلد بدون اسم المجلد" & "اسم المجلد"
       If f.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = "اسم المجلد"
       End If


RE: FolderBrowserDialog - سلام م - 27-09-19

اخي الكريم انا قصدي اعرض اسم المجلد الذي اخترته وليس المجلد الذي اخترت منه مجلد فلو كان اسم المجلد الذي اخترت منه اسمهg واخترت منه مجلد اسمه aa فانا اريد عرض اسم المجلد aaفي تكست بكس وشكرا

RE: FolderBrowserDialog - AbdoDabak - 27-09-19

(27-09-19, 11:34 AM)سلام م كتب : اخي الكريم انا قصدي اعرض اسم المجلد الذي اخترته وليس المجلد الذي اخترت منه مجلد فلو كان اسم المجلد الذي اخترت منه اسمهg واخترت منه مجلد اسمه aa  فانا اريد عرض اسم  المجلد aaفي تكست بكس وشكرا

اخي هي كود بس مابعرف اذا هاد اللي بدك ياه
بدل الكود السابق كامل بالكود هاد بس غير اللي بدك ياه

D      :القرص
g      :المجلد اللي بدك تبحث منو
بس لا تشيل : وال \ تركن عحان بس غير الاحرف

كود :
Dim fi As Integer = TextBox1.Text.IndexOf("D:")
       Dim ti As Integer = TextBox1.Text.IndexOf("\g\") + Len("\g\")
       Dim r As String = TextBox1.Text.Substring(fi, ti - fi)
       Dim f As New FolderBrowserDialog
       f.SelectedPath = "D:\g\"
       If f.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = f.SelectedPath & TextBox1.Text.Replace("D:\g\", False)
       End If
       TextBox1.Text = TextBox1.Text.Replace(r, String.Empty)