[الرائد]

كود :

Try
           If TextBox1.Text = "" Then
               MsgBox("يرجى تحديد اسم الملف المراد الدخول اليه") 'هنا لاعادة تسمية الملف قبل الحفظ
               Return
           End If
           Dim Psi As New ProcessStartInfo
           With Psi
               .FileName = My.Application.Info.DirectoryPath & "\مقالات\" & TextBox1.Text & ".dotx"
               .WindowStyle = ProcessWindowStyle.Maximized
               ProgressBar1.Value = 50
               .Verb = "open"

           End With
           ProgressBar1.Value = 100
           Process.Start(Psi)
           ProgressBar1.Value = 0
       Catch ex As Exception
           MsgBox("يرجى التأكد من اسم الملف الذي ادخلته", MsgBoxStyle.OkOnly)
       End Try

 السلام عليكم اخواني الكرام
في الكود اعلاه , اود فتح ملف وورد من خلاله , الكود يعمل بشكل ممتاز 
مشكلتي انني لا أود فتح مستندات من امتداد dotx فقط بل أود من خلال هذا الكود فتح مختلف الامتدادات النصية 

[dasktop]

تفضل اخي هاذي طريقة اسهل 


اختر اداة listbox 


وفي الزر 

كود :

 For Each foundFile In My.Computer.FileSystem.GetFiles(
        My.Application.Info.DirectoryPath & "\مقالات\")
           ListBox1.Items.Add(foundFile)
       Next

وفي حدث ال listbox 

كود :

       Process.Start(ListBox1.SelectedItem)

واذا تريد بطريقتك فقط ضع شرط اذا النص المكتوب في textbox1 موجود في listbox يحدد عليه وسيعمل تلقائياً

[الرائد]

(25-08-19, 01:09 PM)dasktop كتب : تفضل اخي هاذي طريقة اسهل 


اختر اداة listbox 


وفي الزر 

كود :

 For Each foundFile In My.Computer.FileSystem.GetFiles(
        My.Application.Info.DirectoryPath & "\مقالات\")
           ListBox1.Items.Add(foundFile)
       Next

وفي حدث ال listbox 

كود :

       Process.Start(ListBox1.SelectedItem)

واذا تريد بطريقتك فقط ضع شرط اذا النص المكتوب في textbox1 موجود في listbox يحدد عليه وسيعمل تلقائياً

 شكرا لك , لكني وجدت طريقة اسهل بكثير دون الحاجة الى تبديل الكود

لقد قمت باحداق combox ووضعت فيه جميع الامتدادات وبدلا من .dotx وضعت combobox1.text وانتهى الامر