+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31545)
FolderBrowserDialog - المنذر - 28-09-19
لو سمحتم عند استخدامي لهذه الاداة واختياري ملف من مجلد موجود ضمن برنامجي في debug اسم هذا المجلد ss مثلا عم يضهر لي في التكست بوكس مسار طويل
بقدر اني اجعل هذا المسار يبدأ من اسم مجلد ss بدلا من المسار الطويل ولو وضعت هذا المسار القصير في تكست بوكس اخر وابقيت على التكست بوكس الاول ذو المسار الطويل
RE: FolderBrowserDialog - AbdoDabak - 28-09-19
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
RE: FolderBrowserDialog - asemshahen5 - 28-09-19
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
RE: FolderBrowserDialog - المنذر - 29-09-19
(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 بداخله مجلدات اخرى اريد لما اضيف مسار مجلد خاص بالاسم يكون هذا المسار يفتح من اي كمبيوتر اخر كون المسارات تتغير من كمبيوتر لاخر
راح ارفق مشروعي وياريت المساعدة وبارك الله بكل من اعان وشكرا لكم ياريت وضع الاكواد داخل المشروع وشكرا مرة اخرى
RE: FolderBrowserDialog - AbdoDabak - 29-09-19
اخي عندك برنامج visual basic
لاني البرنامج المرفق هو visual studio
وانا ما عندي ياه
اخي اول شي حط
PHP كود :
Imports System.IO
قبل
PHP كود :
Public Class Form1
End Class
ليصير بهاد الشكل[/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]
RE: FolderBrowserDialog - المنذر - 29-09-19
(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
ان شاء الله رح يشتغل معك
شكرا اخي مشي الحال كلك ذوق
RE: FolderBrowserDialog - AbdoDabak - 29-09-19
العفو هذا واجبنا