05-03-23, 04:57 PM
وعليكم السلام ورحمة الله وبركاته
أفتح مشروع جديد وضع عليه :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .
أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :
في أعلى نافذة الفورم لا تنسى أن تستورد المكتبة التالية تجنباً لأي أخطاء مستقبلاً.
أفتح مشروع جديد وضع عليه :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .
أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :
كود :
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قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
