السلام عليكم ورحمة الله ويركاته
كيفكم أخواني .. أنا لدي سطر في 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
الف شكر لك سيتم التجربة وابلاغك بالنتيجة