28-09-19, 03:29 AM
(27-09-19, 12:59 PM)AbdoDabak كتب :اخي الكريم لم ينجح هذا الكود(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)