منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

السلام عليكم

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

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

        FolderBrowserDialog1.ShowDialog()

(26-09-19, 04:29 PM)AbdoDabak كتب : [ -> ]
السلام عليكم

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

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

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

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 

(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 مثلا اي كيف بقدر اضيف مسار هذا المجلد عالكود المرسل من قبلك

(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

جرب هيك اخي

(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
جرب هيك

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

(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

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

(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)