[عبدالله الدوسري]

الآن فهمت عليك : هكذا تقصد
   


هذا الكود :

كود :

       Using ofb As New OpenFileDialog
           ofb.InitialDirectory = ""
           ofb.Multiselect = True
           If ofb.ShowDialog() = DialogResult.OK Then
               For i As Integer = 0 To ofb.FileNames.Count - 1

                   Dim FullName As String = ofb.FileNames(i)
                   Dim OnlyFileName As String = IO.Path.GetFileNameWithoutExtension(FullName)

                   ListBox1.Items.Add(OnlyFileName)
               Next
           End If
       End Using

IO.Path.GetFileNameWithoutExtension
هذة الوظيفة تعطيها اسم الملف بالكامل مع المسار 
ترجع لك اسم الملف فقط بدون الثلاث أحرف المرافقة للملف ( امتداد الملف )