منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] حذف جزء من مسار ملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] حذف جزء من مسار ملف (/showthread.php?tid=52994)

حذف جزء من مسار ملف - 1albasha - 06-05-25

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

RE: حذف جزء من مسار ملف - princelovelorn - 06-05-25

(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


RE: حذف جزء من مسار ملف - 1albasha - 06-05-25

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

RE: حذف جزء من مسار ملف - princelovelorn - 06-05-25

(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)


RE: حذف جزء من مسار ملف - 1albasha - 06-05-25

شكرا اخي تمام