[1albasha]

كود :

D:\all\7.docx

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

[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

[1albasha]

اخي الكريم شكرا لك تمام الكود الله يبارك فيك
لكن في مجال اذا تغير القرص الى C او E
ان يختصر ايضا فهنا لايختصر الا اذا كان D:\all\7.docx
اما اذا كان C:\all\7.docx او E:\all\7.docx
لايختصر

[princelovelorn]

(06-05-25, 04:20 PM)1albasha كتب : اخي الكريم شكرا لك تمام الكود الله يبارك فيك
لكن في مجال اذا تغير القرص الى C  او E
ان يختصر  ايضا فهنا لايختصر الا  اذا كان D:\all\7.docx
اما اذا كان  C:\all\7.docx    او  E:\all\7.docx
لايختصر

تفضل
هنا أزلت الشرط الذي يتحكم في اسم القرص

كود :

       Dim path As String = TextBox1.Text
       TextBox2.Text = path.Substring(3)

[1albasha]

شكرا اخي تمام