[ابو روضة]

(29-09-18, 02:38 PM)elgokr كتب : مرحباً اخى ابو روضة

فقط كل ما عليك فعله فى السطر التالى

كود :

ListBox1.Items.Add(ofb.FileNames(i))

استبدله ليصبح بهذا الشكل

كود :

ListBox1.Items.Add(IO.Path.GetFileName(ofb.FileNames(i)).Split(".")(0))

أو يمكنك استخدامه بهذه الطريقة

كود :

ListBox1.Items.Add(IO.Path.GetFileName(ofb.FileNames(i)).Replace(IO.Path.GetExtension(ofb.FileNames(i)), ""))

وبكده سيتم عرض الاسم فقط بدون المسار او الصيغة

ولاستخدام الصيغة للملف استخدم التالى

كود :

IO.Path.GetExtension(ofb.FileNames(i))

ولتحديد مسار المجلد كل ما عليك فقط استخدام الكود التالى

كود :

IO.Path.GetDirectoryName(ofb.FileNames(i))

تيحاتى لك

وتمنياتى لك التوفيق

جزاك الله كل خير اخى الجوكر ماشاء الله فعلت ما اريده بسطر واحد... لكن لما باجى أشغل الملف لم يعمل وكأنه لا يوجد له مسار.. مثلا انا لدى هذا الكود وهو ما أريده بالظبط لكن باداة OpenFileDialog 

كود :

Dim sss As String = Application.StartupPath & "\files"
       For Each fil In System.IO.Directory.GetFiles(sss)
           ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(fil))
           lst.Add(fil)
       Next

---