[asmarsou]

(05-03-23, 04:57 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

أفتح مشروع جديد وضع عليه  :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .

أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :

كود :

Dim ofd1 As New OpenFileDialog

Dim rs1 As DialogResult

rs1 = ofd1.ShowDialog()

If rs1 = DialogResult.OK Then
   TextBox1.Text = ofd1.FileName

   TextBox2.Text = Path.GetDirectoryName(TextBox1.Text)

   TextBox3.Text = Path.GetPathRoot(TextBox1.Text)

   TextBox4.Text = Path.GetFileName(TextBox1.Text)

   TextBox5.Text = Path.GetFileNameWithoutExtension(TextBox1.Text)

   TextBox6.Text = Path.GetExtension(TextBox1.Text)
End If

في أعلى نافذة الفورم لا تنسى أن تستورد المكتبة التالية تجنباً لأي أخطاء مستقبلاً.

كود :

Imports System.IO

 كفيت ووفيت مشكور.... وللامانة وزيادة النفع هذه طريقة اخرى

PHP كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox3.Text = ofd.FileName.Remove(ofd.FileName.LastIndexOf("."))
        End If
    End Sub