06-05-25, 01:26 PM
كود :
D:\all\7.docxكيف بزر بوتن بقدر انقله الى تكست بوكس 2 بدون D: يعني يصبج all\7.docx
06-05-25, 01:26 PM
06-05-25, 01:41 PM
(06-05-25, 01:26 PM)1albasha كتب : [ -> ]عندي هذا المسار لملف موجود على تكست بوكس1كود :
D:\all\7.docx
كيف بزر بوتن بقدر انقله الى تكست بوكس 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 If06-05-25, 04:20 PM
اخي الكريم شكرا لك تمام الكود الله يبارك فيك
لكن في مجال اذا تغير القرص الى C او E
ان يختصر ايضا فهنا لايختصر الا اذا كان D:\all\7.docx
اما اذا كان C:\all\7.docx او E:\all\7.docx
لايختصر
لكن في مجال اذا تغير القرص الى C او E
ان يختصر ايضا فهنا لايختصر الا اذا كان D:\all\7.docx
اما اذا كان C:\all\7.docx او E:\all\7.docx
لايختصر
06-05-25, 04:28 PM
(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)06-05-25, 04:39 PM
شكرا اخي تمام