[princelovelorn]

(06-05-25, 01:26 PM)1albasha كتب :

كود :

D:\all\7.docx

عندي هذا المسار لملف  موجود على تكست بوكس1
كيف بزر  بوتن بقدر انقله الى تكست بوكس 2 بدون D: يعني يصبج    all\7.docx

تفضل الكود التالي

كود :

Dim path As String = TextBox1.Text
If path.StartsWith("D:\") Then
   TextBox2.Text = path.Substring(3)
Else
   TextBox2.Text = path
End If