[dell]

السلام عليكم ورحمة الله ويركاته

كيفكم أخواني .. أنا لدي سطر في Textbox

كود :

C:\Users\ِAl3zabe\AppData\Local\Temp\a_1441_01_01_07_38_54.jpg

أريد فقط أسم الملف وإمتداده

a_1441_01_01_07_38_54.jpg


ولكم أطيب التماني 

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي العزيز Dell
الكثير يقومون بعمل ذلك بالريجكس 
اما انا فسأجلبها لك بطريقة اخرى اليك الكود مع الشرح

هذا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFile() As String = TextBox1.Text.Split("\") ' انشاء مصفوفة من النص الموجود في تكست بوكس1 مع التقطيع بدلالة الباك سلاش
       TextBox2.Text = MyFile(MyFile.Length - 1) ' جلب العنصر ذو الاندكس طول المصفوفة -1  اي العنصر الاخير
   End Sub

او هذا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFile() As String = TextBox1.Text.Split("\") ' انشاء مصفوفة من النص الموجود في تكست بوكس1 مع التقطيع بدلالة الباك سلاش
       TextBox2.Text = MyFile.Last ' جلب من المصفوفة آخر عنصر
   End Sub

[dell]

الف شكر لك سيتم التجربة وابلاغك بالنتيجة