[EMAD268716]

(23-09-19, 10:27 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم قم بانشاء مشروع جديد وضع عدد 3 textBox و1 Button وضع هذا الكود في البوتون
سيجلب لك مسار الملف في Textbox1 واسم الملف ولاحقته في TextBox2 ولاحقة الملف فقط في textbox3
طبعا الفلتر هنا فقك للملفات من نوع txt يمكنك تغيير الفلتر حسب ماتريد

كود :

  Dim Ofd As New OpenFileDialog()
       Ofd.Filter = " pdf file |*.Pdf| Text file|*.txt"
       If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = Ofd.FileName
           TextBox1.Text = path
           Dim filnam As New IO.FileInfo(path) ' تعريف متغير
           TextBox2.Text = filnam.Name ' جلب اسم الملف ولاحقته
           TextBox3.Text = filnam.Extension ' جلب لاحقة الملف
       End If

اخي الكريم شكرا كثير الك انحلت المشكلة وتمام لكن ياريت تساعدني كيف بقدر اختار اسم مجلد
وشكرا الك