منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية فتح مستندات نصية بالامتدادات التي تشاء

كود :

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 فقط بل أود من خلال هذا الكود فتح مختلف الامتدادات النصية Shy

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

اختر اداة 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 وانتهى الامر

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الرائد

dasktop

الرائد