[المنذر]

لو سمحتم عند استخدامي لهذه الاداة واختياري ملف من مجلد موجود ضمن برنامجي في debug  اسم هذا المجلد ss مثلا عم يضهر لي في التكست بوكس مسار طويل
بقدر اني اجعل هذا المسار يبدأ من اسم مجلد ss بدلا من المسار الطويل ولو وضعت هذا المسار القصير في تكست بوكس اخر وابقيت على التكست بوكس الاول ذو المسار الطويل

[AbdoDabak]

PHP كود :

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


---

اخي هاد كود ساوي انت شلون مابدك غير عليه
شلون يعني
ملف من مجلد موجود ضمن برنامجي في debug

[asemshahen5]

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = Application.StartupPath & "\ss"
        Dim filePath As String = TextBox1.Text
        Dim directory As String = Path.GetDirectoryName(filePath)
        directory = filePath.Replace(directory, "")
        TextBox2.Text = directory.Replace("\", "")
    End Sub 


[المنذر]

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

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = Application.StartupPath & "\ss"
        Dim filePath As String = TextBox1.Text
        Dim directory As String = Path.GetDirectoryName(filePath)
        directory = filePath.Replace(directory, "")
        TextBox2.Text = directory.Replace("\", "")
    End Sub 


شكرا لكل من تعذب واجابني عن سؤالي لكن يا اخواني ما اشتغلت معي هذه الاكواد مابعرف السبب
كل ما اريده عندي مجلد بداخل debug اسمه all بداخله مجلدات اخرى اريد لما اضيف مسار مجلد خاص بالاسم يكون هذا المسار يفتح من اي كمبيوتر اخر كون المسارات تتغير من كمبيوتر لاخر
راح ارفق مشروعي وياريت المساعدة وبارك الله بكل من اعان وشكرا لكم ياريت وضع الاكواد داخل المشروع وشكرا مرة اخرى

[AbdoDabak]

اخي عندك برنامج visual basic
لاني البرنامج المرفق هو visual studio
وانا ما عندي ياه

---

اخي اول شي حط

PHP كود :

Imports System.IO 


قبل

PHP كود :

Public Class Form1

End Class 


[size]
ليصير بهاد الشكل[/size]

PHP كود :

Imports System.IO
Public Class Form1

End Class 


وضيف في الفورم
TextBox عدد 2
Button عدد 1
واضغط دبل كليك على Button1
وحط الكود 

PHP كود :

Dim f As New FolderBrowserDialog
        f.SelectedPath = Application.StartupPath & "\all"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
            Dim filePath As String = TextBox1.Text
            Dim directory As String = Path.GetDirectoryName(filePath)
            directory = filePath.Replace(directory, "")
            TextBox2.Text = directory.Replace("\", "")
        End If 


[size]
ان شاء الله رح يشتغل معك[/size]

[المنذر]

(29-09-19, 01:53 AM)AbdoDabak كتب : اخي عندك برنامج visual basic
لاني البرنامج المرفق هو visual studio
وانا ما عندي ياه

---

اخي اول شي حط

PHP كود :

Imports System.IO 


قبل

PHP كود :

Public Class Form1

End Class 


ليصير بهاد الشكل

PHP كود :

Imports System.IO
Public Class Form1

End Class 


وضيف في الفورم
TextBox عدد 2
Button عدد 1
واضغط دبل كليك على Button1
وحط الكود 

PHP كود :

Dim f As New FolderBrowserDialog
        f.SelectedPath = Application.StartupPath & "\all"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
            Dim filePath As String = TextBox1.Text
            Dim directory As String = Path.GetDirectoryName(filePath)
            directory = filePath.Replace(directory, "")
            TextBox2.Text = directory.Replace("\", "")
        End If 


ان شاء الله رح يشتغل معك

شكرا اخي مشي الحال كلك ذوق

[AbdoDabak]

العفو هذا واجبنا